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PRODUCT DATE: 15 MARCH 1984 


MAINTAINER: 4+ DIAGNOSTIC ENGINEERING 


AUTHOR ; 


J. WITT 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT By DIGITAL 
EQUIPMENT CORPORATION. OIGITAL EQUIPMENT CORPORATION ASSUMES NO 
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 


NO RESPONSIBILITY IS ASSUMED FOR THE USE OR RELIABILITY OF 
SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED Br DIGITAL OR ITS 
AFFILIATED COMPANIES. 

COPYRIGHT (C) 1979, 1984 Br DIGITAL EQUIPMENT CORPORATION 

THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION: 
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ak USER DOCUMENTATION 
aa 
as 
ao USER DOCUMENTATION TABLE OF CONTENTS 
ay ae reo See abee re Ry re es ne i ia ok ree arene ih BL * ears 3 te 
aa 
492 
50 GLOSSARY 
Si 
53 1.0 GENERAL INFORMATION 
55 1.1 PROGRAM ABSTRACT 
=> 1.1.1 FUNCTIONAL DESCRIPTION 
5a 1.1.2 STRUCTURE OF PROGRAM 
59 1.1.3 MEMORY MAP 
60 1.1.4 OIAGNOSTIC INFORMATION 
6 
62 1.2 SYSTEM REQUIREMENTS 
®5 
64 1.2.1 HARDWARE REQUIREMENTS 
65 1.2.2 SOFTWARE REQUIREMENTS 
5 
67 1.3 RELATED DOCUMENTS AND STANDARDS 
69 1.4 CIAGNOSTIC HIERARCHY PREREQUISITES 
iw 
* 1.5 ASSUMPTIONS 
LL 1.6 DIAGNOSTIC HISTORY 
75 
6 2.0 OPERATING INSTRUCTIONS 
78 
79 2.1 HARDWARE PARAMETERS 
8: 2.2 SOF TWARE PARAMETERS 
83 
84 2.4 EXECUTION TIMES 
86 2.4.1 SYSTEM CONFIGURATION 
8 2.4.2 TEST EXECUTION TIMES 
89 3.0 ERROR INFORMATION 
91 3.1 ERROR REPORTING 
92 RO ERROR HALTS 
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DEVICE INFORMATION TABLES 


wu 


~ Os 


DIAG REGISTERS 
GENERAL 


UNIBUS INTERFACE SPECIFICATIONS 
BIT DEFINITIONS FOR TS11/TSO4 REGISTERS 


TEST SUMMARIES 


TEST 1 
TEST 2 
TEST 5 - 


POP -11/TS11 WRAP TEST 
- POP-117TSO4 WRAP TEST 
SET 1TSO4 CHARACTERISTIC 


FORMATTER BOARD DATA WRAP TESTS (TESTS 4-7). 


5.4.1 


5.4 

5.4 

5.4 

5.4.1.4 SUBTEST 
5.4.2 P.€. DATA TESTS (TEST 5) 

5.4.2.1 SUBTEST 1 - P.E. 

5.4.2.2 SUBTEST 2 - P.E. 

5.4.2.5 SUBTEST 3 - P.E 

5.4.2.4 SUBTEST 4 - P.E. 
5.4.3 PE SKEW TEST (TEST 6) 

5.4.3.1 SUBTEST 1 - P.E. 

5.4.3.2 SUBTEST 2 - P.E, 
5.4.4 DEAD TRACK LOGIC TEST (TEST 7) 

5.4.4.1 SUBTEST 1 

5.4.4.2 SUBTEST 2 - P.E. 
TEST 8 - ROM LOOKUP TABLE TEST. 
TEST 9 INLINE MICRO OIAG TEST 
TEST 10 INIT MICRO DIAG TEST 


SUBTEST 1 
SUBTEST 2 - 


DATA 
DATA 


. DATA 


DATA 


SKEW 
SKEW 


DEAD 


TRACK ACTIVE/TRACK INACTIVE TESTS (TEST 4) 


- TRACK INACTIVE TEST 
TRACK ACTIVE TEST 
3 - TRACK INACTIVE TEST 
4 - TRACK ACTIVE TEST 


TEST/O PATTERN 
TEST/1 PATTERN 


SEQ 0003 


TEST/SMIFTING 1 PATTERN 
TEST/SHIF TING O PATTERN 


TEST 
TEST 


- P.E. DEAD TRACK TEST 


TRACK TEST 


FL 
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135 
136 GLOSSARY 
137 .* 
138 
139 ACT AUTOMATED COMPUTER TEST 

.% 
141 APT AUTOMATED PRODUCT TEST SYSTEM USED IN 
ide MANUF AC TURING. 
144 BYTE/RECORO/FILE COUNT IS STORED IN THE 4TH WORD OF THE COMMAND 
145 BRF PACKET AND IT’S USE BY THE TSO4 DEPENDS 
Ms ON THE TYPE OF COMMAND. 
148 CMD TSO4 COMMAND 
150 COMMAND PACKET FOUR WORD PACKET IN THE CPU MEMORY WHICH 
151i CMOPK T CONTAINS ALL INFORMATION NEEDED Br THE 
152 TSO4 TO EXECUTE A COMMAND. 
154 EXTENDED STATUS FOUR WORDS OF TSO4 STATUS WHICH ARE 
155 TRANSFERRED AS PART OF THE MESSAGE PACKET AT 
136 THE COMPLETION OF A COMMAND. 
158 MESSAGE PACKET SEVEN WORD PACKET IN THE CPU MEMORY INTO 
159 WHICH THE TSO4 STORES STATUS AT THE 
se COMPLETION OF A COMMAND. 
162 PC PROGRAM COUNTER 
164 PSwW PROCESSOR STATUS WORD 

~ 
166 RESIDUAL FRare COUNT THIS COUNT IS PART OF THE MESSAGE PACKET 
167 RFC AND CONTAINS THE NUMBER OF BYTES/RECORDS 
168 /FILES REMAINING TO BE PROCESSED AT THE 


169 COMPLETION OF A COMMAND. 


Fl 
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a oe CATES THE TYPE OF COMMUD TERMINATION. 
174 TSBA TAPE SYSTEM BUS ADDRESS REGISTIR. 
176 TSDB TAPE SYSTEM DATA BUFFER REGIC‘IER. 
178 TSSR TAPE SYSTEM STATUS REGISTER. 
180 xSTO EXTENDED STATUS REGISTER 0 
Ts KST1 EXTENDED STATUS REGISTER 1 
18 xST2 EXTENDED STATUS REGISTER 2 
18s STS EXTENDED STATUS REGISTER 3 
188 XXDP + KXDP+ IS A “CATCH-ALL“NAME FOR A GROUP OF PDP-11 


189 DIAGNOSTIC PACKAGES AVAILABLE ON MULTIMEDIA. 


Gl 
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190 1.0 GENERAL INFORMATION 


203 THIS PROGRAM PERFORMS CORRECTIVE MAINTENANCE Br EXECUTING TS11 
. ANO Yo WRAPAROUNDS FOR THE PURPOSE OF IDENTIFYING FAILED 


208 1.1.2 STRUCTURE OF PROGRAM 


212 THIS DIAG IS A SINGLE PROGRAM FROM THE STANDPOINT OF THE USER, BUT 
213 TT CONTAINS A CONTROL MODULE RELEASED INDEPENDENTLY AS A DIAG SUPERVISOR 


HI 
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214 
215 
si¢ 1.1.3 MEMORY MAP 
218 
SO Ba ee a eel ee bn ely Soe ee FS, — alia autadid mae 
220 Oo! : 
221 : ] 
222 : VECTOR : 
223 : ARFA : 
224 2 : 
2e5 : : 
226 400 !-.-------+---- H 
22? : : 
228 : : 
229 H STACK g 
230 : g 
231 : : 
232 2000 !-------------- : 
233 ? : 
234 : § 
235 ! DIAGNOSTIC ! 
236 : g 
237 : H 
238 41000 !-------------- H 
239 : : 
240 ' : 
241 ! DIAGNOSTIC 3 
242 $ SUPERVISOR ! 
243 : : 
244 ‘ ' 
245 72000 !-------------- H 
246 ' ' 
247 ' ‘ 
248 H XXDP- H 
249 : ' 
250 : g 
251 : : 
252 iii ee : 
253 
a FREE MEMO SPACE RESIDES BETWEEN THE DIAG AND THE SUPERVISOR. 
256 
54 1.1.4 DIAGNOSTIC INFORMATION 
259 
260 ¢ THIS DIAGNOSTIC TESTS ONE UNIT AT A TIME, BUT WILL SEQUENTIALLY 
261 TEST UP TO 4 UNITS. THE 4 UNITS ARE ASSIGNED LOGICAL UNIT 
262 NUMBERS O - 3 BY THE DIAGNOSTIC. THE UNITS DO NOT HAVE TO BE 
263 ON LINE AND A TAPE DOES NOT HAVE TO BE LOADED TO RUN THIS DIAGNOSTIC. 
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RE COMMANDAT ION: 


IT IS RECOMMANDED TO RUN THIS DIAG WITH NO TAPE LOADED BECAUSE OF 


MUCH FASTER EXECUTION TIME (SEE 2.4). 


1.2 SYSTEM REQUIREMENTS 


POP -11 PROCESSOR WITH 16K OR MORE OF MEMORY 
CONSOLE DEVICE (LA30,LA36,VT5O,ETC. ) 
PROGRAM LOAD DEVICE 


1.2.2 SOFTWARE REQUIREMENTS 


DIAGNOSTIC SUPERVISOR 


1.3 RELATED DOCUMENTS AND STANDARDS 


es 


XXDP+ USERS MANUAL MD - 11 -CHQUS 

DIAGNOSTIC SUPERVISOR PROGRAM LISTING 

POP-11 DIAGNOSTIC SUPERVISOR INTERFACE SPECIFICATION. 
POP -11 DIAGNOSTIC SUPERVISOR PROGRAMMER’S GUIDE 
TS11/TSO4 PROGRAMMING SPECIFICATION. 

TSO4/TS11 ENGINEERING SPECIFICATION. 

TS11/TSO&4 COMMAND PACKET SPECIFICATION. 


1.4 DIAGNOSTIC HIERARCHY PREREQUISITES 


THIS PROGRAM SHOULD BE RUN BEFORE ANY OTHER HOST CPU DIAGNOSTIC 
PROGRAM, 


SEQ 0008 


Jl 


SVC.MLB SOURCE FILE MACY1L1 30(1046) 09-APR-84 14:40 PAGE 11 
MSCNIOP: 


CZ2TSIC.Pil 09 -APR-84 14:37 GPRM COUNT OPTION _ SEQ 0009 
308 1.5 ASSUMPTIONS 
8 re eo a Se tae a ea eek Ot ernie owt al 
310 
311 : THE HARDWARE OTHER THAN THE SUBSYSTEM BEING TESTED IS ASSUMED TO WORK 
312 PROPERLY. FALSE ERRORS MAY BE REPORTED IF THE PROCESSOR, MEMORY, ETC., 
4 DO NOT FUNCTION PROPERLY. 
315 
es 1.6 DIAGNOSTIC HISTORY 
318 
319 REV A - FEB 79 
320 - ORIGINAL RELEASE 
321 REV B - AUG 79 
322 -ADDED AN INTERRUPT TEST 
323 ; : -REVISED ALL TESTS BECAUSE OF AN HARDWARE ECO: 
324 i‘ WATCH FOR TAPE MOTION DURING A LOAD SEQUENCE RESULTING 
325 FROM AN INIT SENT TO THE TS11. 
326 -CONVERTED DIAG TO SUPERVISOR REV: C. 
327 ADDED SEVERAL SECTIONS: PROTECT TABLE, AUTO-DROP CODE, 
328 HARD CODED PARAMETER TABLE... 
329 REv C - MAR 84 
330 - CORRECTED MODULE CALLOUT FOR ERROR 17, TEST 7 CUSUALLY IS ONE OF 


331 G157 BOARDS - IONETIFIED AS M8922) 


KL 
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aes 2.0 OPERATING INSTRUCTIONS 
334 thai 
335 2.1 HARDWARE PARAMETERS 
Ue erg ae RES oe ee Ro ei ee NI sd arrearage sealant stcacenen ce 
337 
338 : ON A START COMMAND, THE DIAG ASKS: “CHANGE HW?”. 
339 ON A “N” ANSWER, THERE SHALL BE NO HARDWARE DIALOGUE AND THE 
— oe SHALL RUN ASSUMING A UNIT AT TSSR = 177522 WITH VECTOR OF 
341 2 
342 
343 ON A "“Y" ANSWER TO “CHANGE HW?” QUESTION, THEN AND ONLY THEN, 
343 THE FOLLOWING QUESTIONS WILL BE ASKED ON A START COMMAND. THE 
345 VALUE LUCATED TO THE LEFT OF THE QUESTION MARK IS THE DEFAULT 
see VALUE THAT WILL BE TAKEN ON A CARRIAGE RETURN RESPONCE. 
47 
eed TSSR ADDRESS (172522) ? 
4 
ose VECTOR (224) ? 
352 THE VALIDITY OF THESE PARAMETERS CAN BE ee BEFORE RUNNING 
353 THE TESTS BY SETTING THE FLAG “ADR” ON A STA, RES, OR CON COMMAMD. 
354 THE SO CALLED AUTO-DROP CODE SHALL THEN BE EXECUTED AFTER THE INIT 
355 CODE AND BEFORE THE HARDWARE TESTS ARE RUN. 
356 THAT CODE FIRST TESTS THE ADDRESS OF THE TSSR. IF NO RESPONCE FROM 
357 THE INTERFACE, THE UNIT IS DROPPED IMMEDIATELY WITH THE FOLLOWING 
358 MESSAGE : 
359 
0 BUS TRAP AT XXXXxXxX 
sei INTERFACE BAD OR NOT SETTO ABOVE AD 
9 CXXXXXX = TSSR AD) 
365 ON A RESPONSE FROM THE INTERFACE, THE READY STATUS OF THE 
366 UNIT IS CHECKED. IF NOT READY, THE UNIT IS DROPPED IMMEDIATELY. 


LL 
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368 - 2.2 SOFTWARE PARAMETERS 
DOR Seat Pie a She eNO ee, Ste i bag towne eensomgenen 
370 
371 THE FO..LOWING QUESTION WILL BE ASKED ON REQUEST - I.£., ANSWERING 
372 “y" TO “CHANGE SW (L)?” QUESTION - ON A START, RESTART OR CONTINUE COMMA 
378 ENABLE DATA COMPARE ERROR PRINTS FOR TESTS 4-7(L) N ? 
376 IF “Y" IS THE RESPONSE TO THIS SOFTWARE QUESTION, THEN WILL DATA 
7 COMPARE ERRORS BE PRINTED, PROVIDED IER FLAG IS RESET. 
379 2.4 EXECUTION TIMES 
DOG ipa ca es ee ae 2h at 3 onRe gp anennnees 
381 
382 2.4.1 SYSTEM CONFIGURATION 
O68 el eee Poe ee. HUTS naar) SOS ah OEE TER a sentn ee 
384 
385 POP11/70 
386 MOS MEMORY 
387 LA36 
388 1S11/TS04 
389 
390 2.4.2 TESTS EXECUTION TIMES 

1 sé ed OOOO 6D OH OOS 4 OP 

392 
393 TEPE NOT LOADED: 40 SEC 
395 TAPE LOADED, UNIT OFF-LINE: 90 SEC 


397 TAPE LOADED, UNIT ON-LINE: 145 SEC 


M1 
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398 
399 3.0 ERROR INFORMATION 
DOG ate Tr a Ere ale Rtg Ae fad Si a aa ah ie a 
401 
402 
403 3.1 ERROR REPORTING 
ON cit = eRe reel pie ee Ge) a Se | i SRR a ee om 
405 
406 1 - COMMAND PACKET ADR NOT ON MODULO 4 BOUNDARY 
407 2 TSO4 NOT READY-SSR NOT SET 
408 * 3 - POP11-TS11 WRAP FAILURE 
409 « 4 - PDP11-TS11 WRAP FAILURE ON TSSR EXT ADDR BITS 
410 * 5 - PDOP11-TSO4 WRAP FAILURE-TSBA INCORRECT 
411 ¢ 6 - PDP11-TSO4 WRAP FAILURE-TSSR INCORRECT 
4le 7 TRACK ACTIVE NOT O FOR 1 OR MORE TRACKS IN TEST4 SUBL 
413 8 - TRACK ACTIVE NOT O FOR 1 OR MORE TRACKS IN TEST4 SUB3 
414 9 - TRACK ACTIVE NOT 1 FOR 1 OR MORE TRACKS IN TEST4 SUB2 


TRACK ACTIVE NOT 1 FOR 1 OR MORE TRACKS IN TEST4 SUB4 


S 
~ 
wi 
= 
° 
eet ££ ee Bre 2 es te SO PR: 


416 11 TRACK ACTIVE ERROR 

417 12 - PE WRAP DATA ON O'S PATTERN 

418 13 - PE WRAP DATA ERROR ON 1'S PATTERN 

419 14 - PE WRAP DATA ERROR ON SHIFTING 1 PATTERN 

420 15 - PE WRAP DATA ERROR ON SHIFTING O PATTERN 

421 16 - PE SKEW ERROR 

422 17 - PE DEAD TRACK ERROR 

423 18 - ROM LOOKUP TABLE ERROR 

jad 19 - MICRO DIAGNOSTIC ERROR 

425 # 20 - SET CHAR ERROR-TSSR. NBA NOT SET ON COMMANDS BEFORE 


420 SET CHAR ISSUED. 


427 * 21 - SET CHAR ERROR-TSSR. NBA NOT CLEARED WHEN SET CHAR ISSUED 
428 * 22 - SET CHAR ERROR-TSBA NOT POINTING PAST MSG PACKET 

429 # 23 - SET CHAR ERROR-MSG PACKET CONTENTS IN DOUBT 

430 * 24 - SET CHAR ERROR-I/0 SEQ CROM PARITY ERR (FC=1) 

431 # 25 - SET CHAR ERROR-SERIAL BUS PARITY ERR (FC=2) 

432 * 26 - SET CHAR ERROR-SILO PARITY ERR (FC=2) 

433 ¢ 27 - SET CHAR ERROR-UP CROM PARITY ERROR OR FATAL MICRO 


434 ERROR HALTS (FC=2) 
- SET CHAR ERROR-AC DETECTED LOW AT TSO4 (FC=3) 
- TS11 DIO NOT DROP READY UPON COMMAND ISSUANCE 


bh 
tr | 

ui 
-e 
Mr 
oO@ 


437 30 - PE DATA ERROR 

tod 31 - NO INTERRUPT 

roe ¢ = DEVICE FATAL ERRORS - CALL BAD TS11 BOARD OR IO BOARDS 

nat OTHER ERRORS ARE HARD ERRORS 

444 NOTE: EXPECTED AND ACTUAL DATA AND/OR PRINTOUTS WILL OCCUR 
44a", WITH SOME OF THE ABOVE MESSAGES WHEN APPLICABLE. 


Nl 
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447 
448 3.2 ERROR HALTS 
O09. 2-34 OR ae ars HO be es 2 Cot ewenawan 
450 
451i ERROR HALTS ARE SUPPORTED PER DESCRIBED IN THE PREVIOUS SECTION 
a3 WITH /FLAG:HOE. THERE ARE NO OTHER HALTS. 
45: 
454 
ane 4.0 DEVICE INFORMATION TABLES 
457 
458 4.1 “DIAG” REGISTERS 
Oe RES Poms Pa OR a ae dec ME leo 1h aan nae eee 
a 
61 
462 ;THE FOLLOWING ARE REGISTER AND BIT DEFINITIONS FOR THE 1S04 
463 sREGISTERS OF INTEREST IN THIS DIAGNOSTIC. 
464 
465 § PSSSSSHHEESESHEEESEESEEEHEHESEEEEEEEEEEEESEHEEEEEESEEEEEEEEEOEE 
466 sFMCTLO - FORMATTER MAJOR STATE CONTROL REG 
467 FMCTLO=4 
es | ;WRITE REGISTER 4 
46 
470 ;THIS REGISTER IS SET UP FOR THE PORTION OF THE 
471 sRECORD WE ARE PRESENTLY READING 
472 
473 
474 FC.RD= 200 ;WE ARE DOING NORMAL READ. IF 0, WE DISABLE SOME ERROR 
475 sCORRECTION LOGIC SO WE'RE MORE DISCRIMINATING 
476 sFOR READ AFTER WRITE. 
477 FC.FLO=100 ;SETING THIS BIT CAUSES .FMFLO ON BBUS TO BE TRUE 
475 ;(NEEDED BY THE RD PE ROUTINE) 
47 FC.DAT=10 sDATA MODE 
480 FC.PRE=4 PREAMBLE MODE 
481 FC.vCO=2 ;VCO SYNC MODE 
482 FC.NRZ=1 sNRZI MODE (FORCE SKEW WINDOW TO STA OPEN) 
483 ;CAUSES FMTAUI TO BE CLRED WHEN YOU WRITE 
484 ;TO THE FMCLDO REGISTER. 
485 FPSSSSEHSESEEESEHESESESSEEEEESEEEEEESEEEEEEEEEESEEEEEEESEEEEEEEEEES 
486 sRDCTLO - READ CONTROL REGISTER 
487 ROCTLO=20 
os 4 : sWRITE REGISTER 20 
rte ;THIS REGISTER CONTROLS THE FORMATTER MODE AND THRESHOLD. 
492 RD .REV=200 31 FOR REV MOTION, O=FWD 
493 RD.MAI=100 31/0 FORMATTER DATA WRAPAROUND 
494 RD.SPC=40 sWE ARE SPACING RECORDS. (THIS BIT IS UNUSED IN 
495 :THE HARDWARE BUT IS A SOFTWARE +LAG IN THE READ CODE? 
496 RD.SKP=20 sWE ARE SKIPPING FILES. (THIS BIT IS UNUSED IN 


497 ; 3 THE HARDWARE BUT IS A SOFTWARE FLAG IN THE READ CCCE? 
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~ 

vi 
se@eeee sO 
COMM whe : 


~ 


s THE FOLLOWING THRESHOLDS ARE AVAILABLE: 
DIAG USE 


sNORM USE 

: HI PREAMP GAIN 

4 LO PREAMP, BAD TAPE CLEAN 
: RESIDUAL ERASE CHK 

3 FWO/REV AMP BALANCE 

sNRZ WRT 


sNRZ RO, PE WRT 

sPE READ, NRZ ERR RECOV RO/WRT CROSSTALK 
sPE ERR RECOV ERASE FUNCTION 
sDATA PORTION ONLY 


FOSSSASSHESESSHSSSSHOESSEHESEEHESEHEEHEHHHEHEEEEHEHHESESEHEESHEOEES 


:IOSCcO . 


I/O SEQUENCER SILO CONTROL BUFFER OUT 
TOsc0*14 
sWRITE REGISTER 14 


sTHIS REGISTER CONTAINS THE SILO CONTROL BITS FOR DATA WRITTEN 
BY THE MAIN OR I/O MICRO TO THE SILO. THE DATA IN THIS REG 
sIS PAIRED WITH THE IOSDO REG AND PUT IN THE SILO WHENEVER 
sTHE IOSICO REG IS CLOCKED. THIS REGISTER NEED ONLY BE WRITTEN 
sONCE IF THE SAME OLD DATA IS OK fO BE WRITTEN IN THE SILO. 


sNOTE THAT IF THE I/O IS WRITING THE SILO, THE MAIN MUST PUT EVEN 
sPARITY IN THE BITS 357 OR THE I/O WILL WRITE PAR ERRS IN THE SILO. 
s( THE IS.DAP BIT IS DON'T CARE HERE FOR I/O WRITING THE SILO) 


IS.PAR= 200 s000 PAR BIT FOR ALL 16 BITS CCNRTL AND DATA) 

sNOTE THAT THE BITS MASKED Br 357 MUST BE 

sEVEN PARITY BECAUSE THE 9 DATA BITS ARE O0C 
IS.IvP= 100 sINVERT CNTRL SILO PAR BIT BEFORE MOVING 

sTO WRITE BOARD (WRITE EVEN PARITY ON TAPE) 
IS.NRZ= 40 sINVERT WRITE BUFFER BIT IF ASSOCIATED SILO 

sDATA BIT IS A 1. CIF IS.NRZ*O, WE'RE IN PE MODE) 
IS.DAP= 20 s000 PARITY FOR THE 8 DATA BITS IN IOSDO 
IS.LRC+ 10 sCAUSES SYNCRONOUS CLR ON WRT BOARD TO WRITE THE LRC CHA 
IS.WRF= 4 sTHIS FLG BIT SHOWS UP AT THE WRITE BOARD 


sWITH THE CORRESPONDING DATA, THE FUNCTION OF 

sTHE BIT WILL BE DEFINED BY THE WRITE BOARD. 

sNOTE HOWEVER THAT IF THE WRITE BOARD SEES 

sTHE BIT 1, THE PA.WRF BIT IN THE 

sPRATNI REG WILL ALSO BE 1 (CIF ENABLED 

3TO AFFECT THE ATTN REG). 
sTHE 2 LOW BITS ARE WRITABLE AND AFFECT THE PARITY TREES BUT 
sOTHERWISE ARE UNIMPLEMENTED 


FHOSSSSEHSSHSHSSHSHSSHHSHHEHSHEHHESESSSEHHSHHOSHEHHEEHHEHEHEHEHHEHEHEEOE 


ow 
La bcd 
—o 
Sie 
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THE TSO4 TAPE SUBSYSTEM CONSISTS OF A TS11 UNIBUS TO SERIAL BUS 

CONTROLLER CONNECTED TO A 1S04 DRIVE. FROM A SOFTWARE VIEWPOINT 

ag Es almanac IS UNIQUE (FOR A UNIBUS DEVICE) IN A NUMBER 
WAYS: 


A. 


c. © 


ONLY ONE REGISTER MAY BE WRITTEN - TSOB (TAPE SYSTEM 
DATA BUFFER), 


TWO REGISTERS MAY BE READ - TSSR AND TSBA (TAPE SYSTEM STATUS 
REGISTER AND TAPE SYSTEM BUS ADDRESS REGISTER), 


OMMANDS ARE NOT WRITTEN TO THE DRIVE; RATHER, COMMAND 
POINTERS ARE WRITTEN WHICH POINT TO COMMAND PACKETS SOME- 
WHERE IN CPU MEMORY. THE COMMAND POINTER IS USED Br 
THE TSO4 SUBSYSTEM TO FETCH THE WORD(S) WITHIN THE COMMAND 
PACKET. THE WORDS WITHIN THE COMMAND PACKET ARE: 


1. COMMAND WORD 

2. LOW ORDER BUFFER ADDRESS 
-- 3. “HIGH ORDER BUFFER ADDRESS 
é . BYTE COUNT 


TSSR CONTAINS ALL THE INFORMATION WHICH WILL BE NEC- 
ES ARY TO DETERMINE WHETHER 

1. THE ORIVE IS READY To ACCEPT ANOTHER COMMAND, 

2. THE PREVIOUS COMMAND WAS EXECUTED WITHOUT ERROR. 
IF EITHER OF THE ABOVE CONDITIONS IS UNTRUE AT “JOB DONE” 
OR “COMMAND INITIATION” TIME,IT MAY BE NECESSARY 
TO GET THE EXTENDED STATUS REGISTERS TO DETERMINE WHAT 
ACTION IS TO BE TAKEN ANO/OR LOG THE ERROR INFORMATION. 


- EXTENDED STATUS REGISTERS ARE NOT READ DIRECTLY FROM 


DRIVE REGISTERS; RATHER, A “GET STATUS” COMMAND 

IS [ISSUED WHICH WILL CAUSE THE TSO4 TO TRANSFER EXTENDED 
STATUS INFORMATION TO THE MEMORY AREA POINTED TO BY THE 
BUFFER ADDRESS OF THE "GET STATUS” COMMAND. THERE ARE FOUR 
EXTENDED STATUS REGISTERS. SEE 6.3. 


. THE TSOB MUST BE WRITTEN WITH A DATO INSTRUCTION TO 


PROPERLY WRITE THE COMMAND POINTER. A DATOB WILL 
CAUSE A MAINTENANCE FUNCTION. A DATO TO THE TSSR WILL CAUSE 
SUBSYSTEM INIT, 


- COMMAND PACKETS MUST RESIDE ON DIVIDE By FOUR 


MEMORY BOUNDARIES (AS OPPOSED TO stale By 2 OR WORD 
BOUNDARIES? . 


SEQ 0015 
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164 


772520 
772522 


772524 
772526 


772530 
772532 


772534 
772536 


REGISTER 
TSBA/TSDB 
TSSR 
TSBA/TSOB 
TSSR 
TSBA/TSOB 
TSSR 


TSBA/TSOB 
TSSR 


SEQ 9016 
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M COUNT OPTION 


BIT DEF INIT TONS FOR TS11/TSO4 REGISTERS 


TS11/7TSO4 REGISTER SUMMARY 


1S 
@oces 
tALS! 
0 ~ : 
P15! 
hee 
ee 
SC! 
. 2 
es | 
e---6 
t TMK! 
ts 
@---6 
‘DLT! 
or 
e---¢ 
10PM! 
$ : 
@<cce 
‘ 
' 


---+@ 6=+-=+-+6- 


14 13 12 


e---6---0---6 


at ta bee 
a 


ee ee ee . 


ee ee ee 


@---6---o---6 


‘pant wes eect 
: : , 


@- +--+ ---6---6 


~-=@-+-++06 


1l 10 09 


e---6---6---6 
SALLIALO!A09! 
Q 7 


. . 
ee eee ee 


1P11!P10!P09! 
ye Oe oe 
@---6---6---6 
!NXM!NBA!A17! 
Me ee 
ee ee eee | 
e---6---6--- 
tWLE !NEF HTLC! 
' : 

. 
{TIG!DBF !SCK! 
! I§NZO! 
e---6---+6---6 
! wer: 
eh 


e-+-6- 


MICRO DIAGNOSTIC ERROR CODE 


@-- +O === + <6 


08 07 06 
O---6---0---6 
1A08!A07!A06! 
g £ 
P08 !PO7!P06! 
‘ex Be te 
1AL6!SSRIOFL! 
eae Set ty 
eee eee! ee | 
tTLA!MOT !ONL# 
ae ee 
' $  SDRPS 
{DTPLOT7:DT6! ! 
: . : $ 
pom E 
$ § i 


TERMINATION CLASS CODES (TSSR TCO-TC2): 


NORMAL TERMINATION 
ATTENTION CONOITION 
TAPE STATUS ALERT 
FUNCTION REJECT 


te) 


NOW DSwhr 


Os. 
2? 


RECOVERABLE ERROR 


DOWN TAPE FROM START OF FUNCTION 


RECOVERABLE ERROR - 
UNRECOVERABLE ERROR 


FATAL CONTROLLER ERROR 
FATAL CLASS CODES (TSSR FCO-FC1): 


MICRO DIAGNOSTIC FAILURE (DISPLAYED IN TSO4 OPERATOR PANEL AND 
1 = 170 SEQUENCER CROM PARITY ERROR. 
MICROPROCESSOR CROM PARITY ERROR, 
SILO PARITY ERROR, 
SERIAL BUS PARITY ERROR DETECTED AT TS11 (SPE). 
SERIAL BUS PARITY ERROR DETECTED AT TSO4 (BPE). 
FATAL ERROR HALTS 1750-1777 IN TSO4 PROGRAM COUNTER DISPLAY, 


LOSS OF 


TAPE NOT MOVED 
- TAPE POSITION LOST 


AC POWER HAS BEEN DETECTED. 


oS 04 03 


1A0S!A04!A03! 
7 o 


+--+ ---6---6 
!POS!P04!P03! 
g g g 


tFCLIFCOLTC2! 
te Sy ae 
@---0---6---6 


@-- +0 -- - 6 = - = 6 


ag a tor 


sporianiast 
tITHELCO!NZN! 


“+--+ +6 e---6 


oe @--<-6 


REV CRF !0Cx: 


ee eee eee | 


- TAPE POSITION = ONE RECORD 


SEQ 0017 
02 O01 
#AQ2!A0 
' 
*PO2!P1 
' 
tTCLITC 
. 
tWLX BO 
a 
a ceQ@es 
*POL !UN 
HLRCECR 
:OT2t0T 

t 
S tesetes 
os 
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Fe 


SEQ 0018 


4.4.2 TSil STATUS REGISTER (TSSR) 


UNIBUS ADDRESS + 2 - READ ONLY 


15 


e---6¢ 7 


= : tUPE !SPE RHR! 
' 


e-- 


BIT 


15 


14 
13 


12 


11 


$---6---6---% 
NAME TCC 

sc S 

UPE 4/5 

SPE 7 

RMR S 

NXM 4/5 


- 


13 ie 


ee oe 


11 10 09 08 O7 06 0S 04 O3 02 Cl 


tNAMENBA!AL7! 1AL6!SSRIOFL! HFCLIFCOHTCa! rTC1! TCO! 


@---6 +--+ 6 - = -6 bweemmetnainta ee ee ee ee ee ee 


DEFINITION 


SPECIAL CONDITION. WHEN SET, INDICATES THAT 
THE LAST COMMAND OID NOT COMPLETE WITHOUT 
INCIOENT. SPECIFICALLY, EITHER AN ERROR WAS 
DETECTED OR AN _ EXCEPTION CONDITION OCCURRED. 
EXCEPTION CONDITIONS CAN BE TAPE MARKS ON READ 
COMMANDS, REVERSE MOTION AND AT BOT, EOT WHILE 
WRITING, ETC. MAY ALSO BE SET BY THE ERROR 
BITS CONTAINED IN THE TSSR REGISTER: UPE, SPE, 
MR, AND NXM. THE TERMINATION CLASS BITS ARE SOMET 
OTHER THAN O (UNLESS RMR IS THE ONLY ERROR - SEE RM 


UNIBUS PARITY ERROR. SET BY THE TS11 WHEN IT 
DETECTS A PARITY ERROR ON THE UNIBUS DATA WHEN 
TRANSFERRING TO OR FROM THE CPU‘S MEMORY. 


SERTAL BUS PARITY ERROR. THIS BIT IS SET Br 
THE TS11 WHEN IT DETECTS A SERIAL BUS PARITY 
ERROR ON DATA RECEIVED FROM THE TSO4. 


REGISTER MODIFICATION REFUSED. SET BY THE TSil 
WHEN A COMMAND POINTER IS LOADED INTO T308 AND 
SUB-SYSTEM READY (SSR) IS NOT SET. NOTE THAT 

THIS BIT CAUSES SPECIAL CONDITION BUT NO TERMINATIO 
CLASS CIN FACT, THE TSO4 NEVER SEES THIS ERROR) 
BECAUSE ON A SYSTEM WITH NO BUGS, THIS BIT MAY 

COME UP ON AN ATTENTION MESSAGE. IF ATTNS ARE 

NOT ENABLED, THIS BIT COMING UP IS AN INDICATION 
oo A FATAL CONTROLLER ERROR OR A SOFTWARE 


NON-EXISTENT MEMORY. SET BY THE TS11 WHEN 
TRYING TO TRANSFER TO OR FROM A MEMORY LOCATION 
WHICH DOES NOT EXIST. MAY OCCUR WHEN FETCHING 
THE COMMAND PACKET, FETCHING OR STORING DATA, 
OR STORING THE MESSAGE PACKET. 


Ge 
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729 10 NBA § NEED BUFFER ADDRESS. WHEN SET, INDICATES THAT 
730 THE TSO4 NEEDS A MESSAGE BUFFER ADDRESS. THIS 
731 BIT IS CLEARED DURING THE SET CHARACTERISTICS 
732 COMMAND (IF A GOOD ADDRESS WAS GIVEN). 
334 09 Al?” $5 BUS ADDRESS BIT 17. A17 AND A16 (BIT 08) TRACK 
735 THE VALUES OF BITS 17 AND 16 OF THE TSBA 
736 REGISTER. 
738 08 Al6 § BUS ADDRESS BIT 16. SEE A17 (BIT 09). 
740 . 07 SSR. S SUB-SYSTEM READY. WHEN SET, INDICATES THAT THE 
741 TS11/TS04 SUBSYSTEM IS NOT BUSY AND IS READY TO 
742 ACCEPT A NEW COMMAND POINTER. 
4 
744 06 OFL S.1,3 OFF-LINE. WHEN SET, INDICATES THAT THE TSO4 IS 
745 OFF-LINE AND UNAVAILABLE FOR ANY TAPE MOTION 
746 COMMANDS. THIS BIT CAN CAUSE A TERMINATION CLASS 
747 OF 1 (ON ATTN INTERRUPT) OR 3 (RESULTS IN NEF). 
748 
749 oS FCl 7 FATAL TERMINATION CLASS 01. FC1 AND FCO (BIT 
750 04) ARE USED TO INDICATE THE TYPE OF FATAL 
751 ERROR WHICH HAS OCCURRED ON THE S04. THESE 
752 BITS ARE VALID ONLY WHEN SC IS SET AND THE 
753 TERMINATION CLASS CODE BITS ARE ALL SET (111). 
755 04 FCO 7 FATAL TERMINATION CLASS 00. %€E FC1 (BIT 05S). 
757 03 12 § TERMINATION CLASS BIT 02. THIS BIT, ALONG WITH 
758 THE TC1 AND TCO BITS, ACT AS AN OFFSET VALUE 
759 WHENEVER AN ERROR OR EXCEPTION CONDITION OCCURS 
760 ON A COMMAND. EACH OF THE EIGHT POSSIBLE 
761 VALUES OF THIS. FIELD REPRESENT A PARTICULAR 
762 CLASS OF ERRORS OR EXCEPTIONS. THE CONDITIONS 
763 IN EACH CLASS HAVE SIMILAR SIGNIFICANCE AND, AS 
764 APPLICABLE, RECOVERY PROCEDURES. THE CODE 
765 PROVIDED IN THIS FIELD IS EXPECTED TO BE 
766 UTILIZED AS AN OFFSET INTO A DISPATCH TABLE FOR 
767 HANDLING OF THE CONDITION. 
769 o2 ci § TERMINATION CLASS BIT O1. SEE TC2 (BIT 03). 
772 01 co § TERMINATION CLASS BIT 00. SEE TC2 (BIT 03). 
773 2 FS ; NOT USED. 
774 
775 UNIBUS ADDRESS + 2 - WRITE ONLY 
776, SUBSYSTEM INITIALIZE 


wee. 


He 


SVC.MLB SOURCE FILE MACY11 50(1046) O9-APR-84 14:40 PAGE 22 
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774 
a7 4.4.3 EXTENDED STATUS REGISTER O (XSTATO) 
779 ee eee eee ee ae) ae ee a a ae eee ee ee pe ee Pe 
780 
44) 15 -. vo mol sade moa 09 art 07 rene! papel 04 ~ 02 O11 
782 Ce Se ee en een Se eee eee ee Se ee ee ee “902+ ees Gee e---6- 
783 ileal +RLS!LETIRLL! tWLE !NEF SILC! HTLA!MOT !ONL! rTE tVCK IPED! MLK 1607 
784 
785 bene I ee $eathneneetied bekncenshannt ee ee oe e------6 
se 
88 BIT NAME TCC DEF INITION 
78 coe sete ose 88 encceweene 
790 
791 15 TMK $.2 TAPE MARK DETECTED. = WHENEVER A TAPE MARK 
792 WAS DETECTED OURING “READ, SPACE, OR SKIP 
793 COMMAND AND AS A RESULT Aor THE WRITE TAPE MARK 
7 : OR WITE TAPE MARK RETRY COMMANDS. 
79 
796 14 RLS 2 RECORD LENGTH SHORT. THIS BIT INDICATES THAT 
797 EITHER THE RECORD’'S LENGTH WAS SHORTER THAN THE 
798 BYTE COUNT ON READ OPERATIONS, A SPACE RECORD 
799 OPERATION ENCOUNTERED A TAPE MARK OR BCT BEFORE 
800 THE POSITION COUNT WAS EXHAUSTED, OR A SKIP 
801 TAPE MARKS COMMAND WAS TERMINATED BY 
802 * ENCOUNTERING BOT OR A DOUBLE TAPE MARK CIF THAT 
803 OPERATIONAL MODE IS ENABLED, SEE LET) PRIOR TO 
oe EXHAUSTING THE POSITION COUNTER. 
806 13 LET 2 LOGICAL END OF TAPE. SET ONLY ON THE SKIP TAPE 
807 MARKS COMMAND WHEN EITHER TWO CONTIGUOUS TAPE 
808 MARKS ARE DETECTED OR WHEN MOVING OFF OF gB0T 
809 AND THE FIRST RECORD ENCOUNTERED IS A TAPE 
810 MARK. THE SETTING OF THIS BIT WIttL NOT OCCUR 
811 UNLESS THIS MODE OF TERMINATION IS ENABLED 
oe THROUGH USE OF THE SET CHARACTERISTICS COMMAND. 
814 12 RLL 2 RECORD LENGTH LONG. WHEN SET, THIS BIT 
815 INDICATES THAT THE RECORD READ WAS LONGER THAN 
ty THE BYTE COUNT SPECIFIED. 
818 11 WLE 3,6 WRITE LOCK ERROR. WHEN SET, INDICATES THAT A 
819 WRITE OPERATION WAS ISSUED BUT THE MOUNTED TAPE 
820 DID NOT CONTAIN A WRITE ENABLE RING OR THE WRT 


821 LOCK SWITCH ACTIVATED DURING THE OPERATION. 


Te 
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822 10 NEF 3 —_ ie FUNCTION. WHEN SET, INDICATES 
823 COMMAND COULD NOT BE EXECUTED QUE TO 
a one OF re FOLLOWING CONDITIONS: 
826 - THE COMMAND SPECIFIED REVERSE TAPE 
827 DIRECTION BUT THE TAPE WAS ALREADY 
828 POSITIONED AT BOT. 
829 - THE ISSUING OF ANY COMMAND, EXCEPT REWIND, 
830 UNLOAD, OR A COMMAND WITH THE CLEAR VOLUME 
831 : CHECK cevc) BIT SET, WHEN THE VOLUME CHECK 
832 BIT IS $ 
833 - ANY RAG EXCEPT GET STATUS OR ORIVE 
834 INITIALIZE, WHEN THE TSO4 IS OFF-LINE. 
835 - ANY WRITE COMMAND WHEN THE TAPE DOES NOT 
836 CONTAIN A WRITE ENABLE RING (WRITE LOCK 
od STATUS - WIS). 
839 09 «€6—LC 3 ILLEGAL COMMAND. SET WHEN A COMMAND IS ISSUED 
840 AND EITHER ITS COMMAND FIELD OR ITS COMMAND 
841 MODE FIELD CONTAINS CODES WHICH ARE NOT 
ae SUPPORTED BY THE TSO4. 
844 08 ILA 3 ILLEGAL ADDRESS. (MORE THAN 18 BITS OR ODD WHEN 
aoe AN EVEN ADORESS IS REQUIRED. ) 
oer 07 MOT S TAPE IS MOVING. 
849 06 ONL S ON LINE. WHEN SET, meeceres THAT THE TSO4 IS 
on ON-LINE AND OPERABLE 
852 oS~=séCO 3 INTERRUPT ENABLE. REFLECTS THE STATE OF THE 
853 INTERRUPT ENABLE BIT SUPPLIED ON THE LAST 
con COMMAND. 
856 04 =«sVCK S VOLUME CHECK. WHEN SET, INDICATES THAT THE 
857 DRIVE HAS BEEN EITHER POWERED DOWN OR TURNED 
858 OFF-LINE. CLEARED BY THE CLEAR VOLUME CHECK 
859 (CvC) BIT pe THE COMMAND HEADER WORD. THIS BIT 
ace CAN CAUSE A TERMINATION CLASS OF 3. 
862 i 03 PED S PHASE ENCODED DRIVE. WHEN SET, INDICATES THAT 
863 THE TSO4 IS CAPABLE OF READING AND WRITING ONLY 
864 1600 BPI PHASE ENCODED DATA. WHEN RESET, 
865 INDICATES THAT THE TSO4 HAS ONLY 800 BPI NAZI 
ose DATA CAPABILITIES. 
868 02. WLK S.3 WRITE LOCKED. WHEN SET, INDICATES THAT THE 
869 MOUNTED REEL OF TAPE DOES NOT HAVE A 
870 WRITE-ENABLE RING INSTALLED. THE TAPE IS, 
$73 THEREFORE, WRITE PROTECTED. 
873 Ol Bor 5.3 BEGINNING OF TAPE. WHEN: SET, INDICATES THAT 
874 THE TAPE IS POSITIONED AT THE LOAD POINT AS 
avs DENOTED BY THE BOT RESLECTIVE STRIP ON THE 


Je 
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878 oo «COT S.2 END OF TAPE. THIS BIT IS SET WHENEVER THE TAPE 
879 IS_ POSITIONED AT OR BEYOND THE END OF TAPE 
880 REFLECTIVE STRIP. DOES NOT RESET UNTIL THE 
88i TAPE PASSES OVER THE REFLECTIVE STRIP IN THE 


882 REVERSE DIRECTION UNDER PROGRAM CONTROL. 
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GPRM COUNT OPTION 


EXTENDED STATUS REGISTER 1 (XSTAT1) 


14 13 12 11 10 09 0&8 O7 06 0S 04 03 


* 
'COR!ICRS! !TIG 
' 1 


e---6¢ Se ee ee ee ee ee ee ee ee ee fee | 
!0BF !SCK! ! !IPR!ISYN! !IPO!IED!POS! 
$3 'NZO! : 8 § 'ORP! #ITMELCO!NZN! 


ee ee ee ee ee ee ee ee eee ee ee ee ee ee ee ee ee 


15 
e---6+ @ 
‘DLT! ! 
wees 

NAME TCC 
DT 4 
cor § 
crs 4 
TIG 84 
peF = 4 
NZO 4 
stk 4 
IPR 5,4 


DEF INITION 


DATA LATE. SET WHEN THE I/O SILO IS FULL ON A 
READ OR EMPTY ON A WkITE. THESE CONDITIONS 
OCCUR WHENEVER THE UNIBUS LATENCY EXCEEDS THE 
DATA TRANSFER RATE OF THE TSO4. 


NOT USED. 


CORRECTABLE DATA. IN PHASE ENCODED MODE, A 
CORRECTABLE DATA ERROR HAS BEEN ENCOUNTERED. 


CREASE DETECTED. FOR NRZI, ALL DATA TRACKS 
DROPPED OUT FOR MORE THAN THREE CHARACTER TIMES 
BUT FOR LESS THAN .1 INCHES OF TAPE. FOR PE, 
EIGHT OUT OF NINE DATA TRACKS WENT DEAD FOR 
LESS THAN .1 INCHES BEFORE A VALID POSTAMBLE 
WAS DETECTED. 


TRASH IN THE GAP. NON-ERASED DATA WAS DETECTED 
IN A GAP DURING A READ, WRITE, WRITE TAPE MARK, 
OR ERASE COMMAND. 


EXCESSIVE SKEW. FOR NRZI, DATA OCCURRED 
BETWEEN THE SOs MARK AND THE 1008 MARK OF THE 
NRZI DATA WINDOW. FOR PE, IT TOOK MORE THAN 
FIVE CHARACTERS IN READ-AFTER-WRITE OR TEN 
CHARACTERS IN READ TO PROPERLY CENTER THE 
WINDOWS OF THE FORMAT CHANNEL LOGIC. 


NRZ FIFO OVERRUN. 
SPEED CHECK. TAPE SPEED WAS OFF BY MORE THAN 


SEQ 0023 


02 01 
!POL UNC! 
SLC ICRC! 


e---+-6---¢ 


Ss DURING A WRITE DATA OPERATION. NOTE THAT SPEED 
AVERAGED OVER 8 TICKS AND THE AVERAGE MUST BE OFF 


Ss TO CAUSE THIS ERROR. 
NOT USED. 


INVALID PREAMBLE. SET ON A PE ORIVE IF THE 
PREAMBLE APPEARS TO BE SHORTER THAN 306 
CHARACTERS OR LONGER THAN 44 CHARACTERS. ALSO 
SET IF THE PREAMBLE IS _ INCORRECTLY ENCODED 
BEYOND THE FIFTEENTH CHARACTER IN READ OR THE 
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03 


02 


01 
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DRP 


IPO 


IT™ 


IED 


LRO 


POS 


NZN 
POL 


LRC 


UNC 


CRC 


MTE 


VPE 


TENTH CHARCTER IN READ-AFTER-WRITE. 

SYNCH FAILURE. SET ON A PE ORIVE IF _ THE 
FORMATTER WAS UNABLE TO ACHIEVE SYNCHRONIZATION 
IN THE PREAMBLE. 


NRZ RECORD DROPPED A CHARACTER (THE NEXT CHARACTER 
WAS TO BE CONSIDERED CRC). 


INVALID POSTAMBLE. SET ON A PE ODRIVE DURING 
READ OR WRITE IF ANY OF THE FIRST 39 CHARACTERS 
OF THE POSTAMBLE ARE NOT READ CORRECTLY. 
ILLEGAL TAPE MARK FOR NRZ. 


INVALID END DATA. FOR PE, EIGHT OUT OF NI 


NE 
TRACKS WENT DEAD BEFORE THE POSTAMBLE WAS DETECTED. 


FOR NRZI, DATA WAS NOT DETECTED IN EITHER THE 
LRCC OR CRCC WINDOWS. (LRC WAS ZERO) 


POSTAMBLE SHORT. SET ON PE DRIVES DURING A 
READ OR WRITE WHEN LESS_ THAN 38 ALL-ZEROES 
CHARACTERS ARE READ FOLLOWING THE ALL-ONES 
CHARACTER. 


NRZ NOISE RECORD (FEWER THAN 13(10) FRAMES). 


POSTAMBLE LONG. SET ON PE DRIVES DURING READ 
OR WRITE OPERATIONS WHEN THE POSTAMBLE EXCEEDS 
42 CHARACTERS. 


LRC ERROR. SET ON NRZI DRIVES WHEN THE LRCC 
CHARACTER WAS FOUND IN ERROR. 


UNCORRECTABLE DATA. SET ON PE ORIVES WHEN A 
PARITY ERROR OCCURRED WITHOUT A CORRESPONDING 
DEAD TRACK INDICATION. 


CRC ERROR. SET ON NRZI ORIVES WHEN THE CRC 
CHARACTER WAS FOUND TO BE IN ERROR. 


MULTI-TRACK ERROR. SET ON PE ORIVES WHEN MORE 
THAN ONE DEAD TRACK OCCURRED IN THE PREAMBLE OR 
IN THE DATA FIELD. 


VERTICAL PARITY ERROR. SET ON NRZI ORIVES WHEN 
A CHARACTER DID NOT CONTAIN AN ODD NUMBER OF 
ONE BITS. 


SEQ 0024 


Me 
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988 
989 4.4.5 EXTENDED STATUS REGISTER 2 (XSTAT2) 
DOD a nO ER a) i eee ee ee OS ESR SSS ES 
991 
Q92 15 14 13 12 11 10 09 08 O7 06 05 O04 O38 02 O1 
993 eee ee eee eee eee ee eee eee ees ee ees eee eee ee eee eee eee ee eee ee 
994 10PM! !SIP!BPE!CAF! ! !WCF!  ! !DTPIDT7!DTE! !DTS!OT4!DT3! !OT2!0T1! 
995 We Kk oe we wet 3 oe et eT ee ee es Eo ee ee Tt 
996 Seen ee eee eee eee ee eee eee eee Se een eee een ae eee eee eee ee ees eee | 
998 
999 BIT NAME TCC DEF INITION 
1000 eee eee tee eee eeee- 
1001 
1002 15 OPM S OPERATION IN PROGRESS. (TAPE MOVING) 
1003 
1004 14 SIP 7 SILO PARITY ERROR. CAUSES FATAL CLASS 2 BECAUSE THE 
1005 ERROR MIGHT HAVE OCCURRED DURING THE TRANSMISSION OF THE 
1006 MESSAGE PACKET. 
1007 
1008 13 BPE 7 SERIAL BUS PARITY ERROR AT DRIVE. SET BY THE 
1009 TSO4 WHEN A PARITY ERROR IS DETECTED ON DATA 
1010 TRANSMITTED FROM THE TS11 TO THE TSO4. CAUSES FATAL 
1011 CLASS 2 BECAUSE THE ERROR MIGHT HAVE OCCURRED DURING 
1012 THE TRANSMISSION OF THE MESSAGE PACKET. 
1013 
1014 12 CAF 7 CAPSTAN ACCELERATION FAIL. AFTER ACCELERATING 
1015 A TAPE FOR .2 INCHES, THE TAPE SPEED WAS CHECKED 
1010 : ANDO FOUND TO BE OUT OF TOLERANCE BY MORE THAN 
1017 10s. 
1018 
rth il - - NOT USED. 
1021 10 WCF 7 DESKEW BUFFER FAIL. ONE OF THE DESKEW BUFFERS 
1022 FAILED TO ASSERT “OUTPUT READY” WITHIN 20 
1023 MICROSECONDS AFTER BEING ENABLED. THE DEAD 
1024 TRACK BITS WILL INDICATE ON WHICH TRACKS THIS 
1025 FAILURE OCCURRED. 
1026 
1027 09 - ee NOT USED. 


1028 


SV 
cz 


C 
TSIc.Pil 


-MLB SOURCE FILE 
09 -APR - 84 


Ne 


MACY11 30(1046) 09-APR-84 14:40 nes 28 
14:37 MSCNTOP: GPRM COUNT OPTION 


08 OTP 
07 ~«#2~OOT? 
06 OT6 
oS = oTs 
04 = DT4 
O53 OTS 
02 Of2 
Ol OT] 
oo =6—OTO 


Ss 


w 


vueuwnwnwynynwny w 


DEAD TRACK PARITY. THE BITS OTP THROUGH OTO 
INDICATE WHICH TRACK(S) WENT DEAD, IF ANY, 
DURING THE LAST DATA TRANSFER OPERATION. IF 
DESKEW BUFFER FAIL (DBF) IS SET, THESE BITS 
INDICATE WHICH CHANNEL FAILED. 


DEAD TRACK 7. SEE DTP. 


DEAD TRACK 6. SEE DTP. 
DEAD TRACK 5S. SEE DTP. 
DEAD TRACK 4, SEE DTP. 
DEAD TRACK 3. SEE DTP. 
DEAD TRACK 2. SEE DIP. 
DEAD TRACK 1. SEE DIP. 


DEAD TRACK 0. SEE DTP. 


NOTE: ON A SET CHARACTERISTICS COMMAND, THE UCODE LEVEL IS RETURNED 


IN DT? THRU 


DTO. 


ON A GET STATUS COMMAND, THE RESIDUAL CAPSTAN 


TICK COUNT CINTERNALLY R7) IS RETURNED IN DT7 THRU DTO. 


SEG 0026 


B34 
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1055 
ae 4.4.6 EXTENDED STATUS REGISTER 3 (xSTAT3) 
1057 ~T?TparrTtt rte Le; Te TP ee er eT eer 
1058 
1059 
1060 15 14 13 12 11 10 09 08 O7 06 05 04 O38 02 O1 
101 ee oe oe oe ee eee eee eee Oe ee? ees eee ae ees eee ees ee eee ee 
1L0Oee H MICRO DIAGNOSTIC ERROR CODE SLMX!OPI! #REVICREPOCK! §NOTIL XS! 
1063 H 8 $ $8 H § : 3 g g 
1064 ee Me ee ee ee ee eee eee! eee? ee eee ee ee ee ee eee ee ee ee ee 
1065 
1066 
1067 BIT NAME TCC DEFINITION 
1068 114 —Saet \Ree | Mekeneme ws 
1069 
1070 15 TO 08 MICRO DIAGNOSTIC ERROR CODE. (SEE LIST OF CODES SELOW). 
1071 ALL ERROR CODES IN THE TABLE WILL BE DISPLAYED ON 
1072 THE TSO4 CONTROL PANEL BUT ONLY CODES HIGHER THAN 
107 110 WILL BE AVAILABLE TO CPU DIAGNOSTICS FOR PRINTOUT 
1074 IN THE MICRO DIAGNOSTIC ERROR CODE FIELD OF XSTAT3. 
1075 THIS ERROR CODE FIELD IS VALID ONLY WHEN THE 
1076 TERMINATION CLASS CODE IN THE TSSR EQUALS 7 AND THE 
1077 FATAL CLASS CODE IN THE TSSR EQUALS 0, INDICATING 
ahs AN INTERNAL DIAGNOSTIC FAILURE. 
1080 07 NTL 6 LIMIT EXCEEDED. SET WHEN THE TAPE TENSION ARMS 
1081 HAVE EXCEEDED THEIR ALLOWABLE TRAVEL AND HAVE 
1082 CAUSED THE ACTIVITATION OF THE LIMIT SWITCHES. 
ree NO TENSION EXISTS ON THE MOUNTED TAPE. 
1085 06 OPTI 6 OPERATION INCOMPLETE. SET WHEN A READ, SPACE, 
1086 . OR SKIP OPERATION HAS MOVED 25 FEET OF TAPE 
red WITHOUT DETECTING ANY DATA ON THE TAPE, 
1089 05 REV S DIRECTION OF CURRENT OPERATION WAS REVERSE (8UT 
rey IS O IF REWIND OR FORWARD) 
1092 04 CRF ? CAPSTAN RESPONSE FAILURE. A MOTION COMMAND WAS 
1093 GIVEN TO THE CAPSTAN BUT WE DIO NOT GET A TICK 
1094 BACK WITHIN A REASONABLE AMOUNT OF TIME. 


ed ee 
> Pe pe pe pe 


bh 2 ee 
ODBADYU hwy 
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05 


02 


OCK 


NOL 


5,6 


6 


fo 


DENSITY CHECK. SET ON PE ORIVES WHEN A PE 
IDENTIFICATION BURST WAS NOT DETECTED WHEN 
MOVING OFF OF BOT. SET ON NRZI ORIVES WHEN A 
NON-NRZI_ IDENTIFICATION BURST WAS FOUND WHEN 
MOVING OFF OF BOT. 


NOISE RECORD. SET DURING A READ OR SPACE 
OPERATION WHEN A BURST OF FLUX CHANGES, WHICH 
DO NOT QUALIFY AS A RECORD (BUT TOO MANY TO 
IGNORE), ARE DETECTED: 


NRZI: AT LEAST TWO CHARACTERS IN A ROW BUT 
LESS THAN TWELVE, FOLLOWED BY A CHARACTER IN 
EITHER THE CRCC OR LRCC WINDOWS. 


PE: AT LEAST 24 CHARACTERS IN A ROW THAT 00 
NOT QUALIFY AS A TAPE MARK OR A DATA 
PREAMBLE. 


LIMIT EXCEEDED STATICALLY. THIS BIT IS SET ANY 
TIME THE LIMIT SWITCHES ARE EXCEEDED. THIS BIT 


CAN ONLY BE CLEARED BY MANUALLY LOADING THE TAPE. 


REVERSE INTO BOT. A READ, SPACE, OR SKIP 
COMMAND ALREADY IN PROGRESS HAS ENCOUNTERED THE 
BOT MARKER WHEN MOVING TAPE NN THE REVERSE 
DIRECTION. TAPE MOTION WILL 8E .“f 9 AT BOT. 


SEQ 0028 


D3 
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1125 
1126 4.4.7 MICRO DIAGNOSTIC ERROR CODES 
1 el ARB a rey ob Re coc ames i la sais 
11>9 FOLLOWING IS A LIST OF THE ERRORS WHICH ARE DISPLAYED IN THE MICRO 
1130 DIAGNOSTIC ERROR CODE (XSTATS BITS 15 - 08) AND ALSO IN THE LIGHTS ON THE 
1131 TSO4 CONTROL PANEL, OUE TO FAILURES ON THE CAPSTAN BOARD, 1/0 BOARDS, 
1132 WRITE BOARD, READ BOARD, OR FORMATTER BOARD. THE MICRO WILL BE IN A 
1138 TIGHT LOOP IN THE DISPM PROGRAM, WAITING FOR OPERATOR OR CPU 
1134 INTERVENTION WHILE THE ERROR IS BEING DISPLAYED IN THE CONSOLE 
1135 LIGHTS. IT IS APPARENT THAT AN ERROR IS BEING DISPLAYED IF THE “UOK” 
1136 LIGHT IS NOT LIGHTED, THE PROCESSOR IS NOT STOPPED, AND AN OCTAL 
1187 NUMBER (100-377) IS BEING DISPLAYED IN THE LIGHTS. TO SCOPE LOOP 
1138 THESE TESTS, ENTER MAINTENANCE MODE (ON-LINE SWITCH TO “OFF” 
1139 POSITION, MAINTENANCE SWITCH UP, PRESS RESET), ENTER THE OFF-LINE 
Liao TEST NUMBER (SEE SCOPE LOOP COLUMN BELOW) IN THE OPERATOR CONSOLE 
Liat LIGHTS (ENTER ONES WITH LEFT-MOST SWITCH, ENTER ZEROES WITH 
1142 RIGHT-MOST SWITCH), AND PRESS ON-LINE BUTTON. TEST WILL LOOP UNTIL 
1148 ON-LINE SWITCH IS RETURNED TO OFF-LINE POSITION, ERRORS WIL BE 
14a DISPLAYED CONTINUOUSLY. 
1146 ERROR PROGRAM ERROR DESCRIPTION LIKELY SCOPE 
114 (DISPLAY ) MODULE LOOP 
1149 337 OPERATIONAL CAPSTAN RUNAWAY ERROR (H3.RNY). CAPSTAN DIDN'T 
1150 : CODE STOP WITHIN ACCEPTABLE WINDOW AFTER LAST COMMAND. 
1152 
1153 100 IOTSM BASIC I/O MICRO FAILURE (PARITY M8967 14 
1154 ERROR, IOATN, HANDSHAKING, AND 
1155 DATA WINDOW TEST BETWEEN THE I/O 
tis) END MAIN MICROS. 
1158 NOTE: CAN ALSO BE CAUSED BY THE 
1159 SERIAL BUS .SHIN (SHIFT IN) 
1160 STUCK ASSERTED. 
1162 101 IoTsM ERROR IN I/O CONTROL REGISTER TEST M8%66 15 
i163 M8967 
1165 102 IOTSM FAILURE OF FRAME COUNTER TEST M8%6 1S 
1167 103 LOTSM FAILURE OF I/O SILO NON-PARITY ERROR  89%6 16 
tice DATA TEST OR THE WRITE FLAG. M8963 
1170 104 TOTSM FAILURE OF I/O SILO PARITY ERROR MB%6 17 
Tee TEST OR DATA LATE TEST. 
1173 105 LOTSM FAILURE OF SHIFT LOOP WITH ZEROES. M8965 20 


1175 106 IOTSM FAILURE OF SHIFT LOOP WITH ONES. M6965 38 alk 
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107 
110 


i11 


112 


113 


114 


115 


116 
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IOTSM 
IOTSM 


CATSM 


CATSM 


CATSM 


CATSM 


CATSM 


CATSM 


FAILURE OF SHIFT LENGTH MUX. 


FAILURE TO RECEIVE CORRECT OP-CODE 
FROM 1TS11 WHEN WE SENT DATA OVER 
THE SERIAL BUS. 


FAILURE OF 1 KHZ CLOCK TEST. 
TSTS TAC SYNC FLOP AND ATTN, TOO. 


LIGHT REGISTER CHANGED WHEN MOTION 
REGISTER WAS CLEARED. 


FWD OR MVG BITS WRONG AFTER 1 TICK 
OF SIMULATED COMMAND AND TACH PULSES. 


FAILURE OF SIMULATED CAPSTAN 
SPEED TEST. THE CAPSTAN SPEED 
COUNTER WAS OUT OF RANGE WHEN 
TAPE MOTION AT SPEED WAS 
SIMULATED. 


FAILURE OF SIMULATED SLOW CAPSTAN 
TEST. SPEEDO COUNTER DID NOT LATCH 
UP WITH MAX COUNT WHEN SLOW TACH 
TICKS WERE SIMULATED. 


FAILURE OF SIMULATED CAPSTAN DECEL 
TEST. COUNTER NOT ZERO FOR FORWARD 

OR 377 FOR REVERSE WHILE DECELERATING, 
OR MVG BIT NOT 1. 


M896S 22 
M8965 47 
TS11 
MOTHER BD 
SBUS CABLE 
G159 2 
CBUS CABLE 
M8963 

G159 3.4 
G159 3,4 
G159 3.4 
G159 3.4 
G159 3.4 


SEQ 0030 
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120 


121 


124 


125 


126 


127 
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CATSM 


PETSM 


PETSM 


PE TSM 


PETSM 


PETSM 


PETSM 


FAILURE OF MOVING FLOP TO GO TO ZERO 
AFTER STOPPING (DIRECTION REVERSAL 
FOR ONE TACH TICK). 

FAILURE OF WRITE BOARD TO TURN ON 
AND EMPTY THE SILO, OR DATA LATE 

BIT DOESN'T WORK. 


FAILURE OF WRITE BOARD TO EMPTY 
SILO AT CORRECT SPEED. 

FORMATTER FLAG DOESN'T WORK ON THE 
M8922. 


FORMATTER SILO FILLING AND DATA 
ERROR 
PEAK SHIFT TEST ERROR 


FORMATTER TABLE LOOKUP ROM CHECKSUM 
TEST ERROR 


G159 


M8929 
M8966 


M8929 


M8922 


M8922 
M8923 
M8924 


M8922 
M8923 
M8924 


M8922 
M8923 
M8924 


3,4 


23 


23 


24 


24 


2s 


26 


SEQ 0031 


G3 
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1236 

1237 5.0 TEST SUMMARIES 

i Oe ee te 

1239 ; 

1240 

et 5.1 TEST 1 - POP-11/TS11 WRAP TEST 

124e 

1243 TEST TO INSURE PROPER COMMUNICATION BETWEEN THE PDP11 AND THE TSi1 Br 

1244 WRAPPING THE FOLLOWING PATTERNS: 

pot A 1 IN A FIELD OF O'S A O IN A FIELD OF 1°S. 

1246 

1247 WHEN DATA IS WRITTEN TO THE TSOB HI BYTE, THE DATA IS WRAPPED 

1248 AROUND WIHTIN THE TS11 AND APPEARS IN THE TSBA LO 

1249 AND HI BYTES. THE 2 LOW ORDER BITS OF THE DATA WILi BE 

1250 REFLECTED IN THE TSSR EXTENDED ADORESS BITS. 

1251 R4 CONTAINS A COPY OF THE DATA SENT. 

1252 R3 CONTAINS THE EXPECTED TSBA RESULTS 

1253 R2 CONTAINS THE EXPECTED STATE OF THE TWO EXTENDED ADDRESS 

1254 BITS IN THE TSSR. 

1255 

1256 

ithe 5.2 TEST 2 - POP-11/TSO4 WRAP TEST 

1259 TEST TO INSURE PROPER COMMUNICATION BETWEEN THE PDP11 AND 

1260 THE TSO4 BY WRAPPPING THE FOLLOWING PATTERN: 

aces A 1 INA FIELD OF 0'S; AO IN A FIELD OF 1'S 

1263 WHEN THE DATA IS WRITTEN TO THE TSOB LO BYTE,THE DATA IS 

1264 SENT TO THE TSO4, VIA THE SERIAL LINE, WHERE IT IS WRAPPED 

1265 AROUND BACK OVER THE SERIAL LINE TO THE TS11. THE DATA THEN 

1266 APPEARS IN THE TSBA LO AND TSSR LO BYTES. 

1267 R4 CONTAINS THE EXPECTED TSBA RESULTS AND THE 

1268 EXPECTED TSSR RESULTS. 

1269 

1270 ' 

tt 5.3 TEST 3 - SET TSO4 CHARACTERISTIC 

1273 THE FUNCTION OF THIS TEST IS TO ISSUE A “SET CHARACTERISTIC” COMMAND 

1274 TO TELL THE TSO4 WHERE IN CORE THE MESSAGE PACKET RESIDES AND TO 


1275 VERIFY THAT A MESSAGE PACKET WAS STORED. 


H3 
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1276 
1277 5.4 TESTS 4 - 7 PERFORM DATA WRAPS ON THE P.E. READ FORMATTER 
1278 BOARDS. COMMUNICATION BETWEEN THE PDP11 AND TSO4 OCCURS BY USING 
12? THE DIA (DIAGNOSTIC) COMMAND WHICH SENDS A COPY OF THE DIABLK TABLE, 
1280 RESIDING IN CORE, TO THE TSO4 CONTROLLER. THE FORMAT OF THE DIABLK IS 
1281 SHOWN IN THE FOLLOWING TABLE. NOTE THAT THE TABLE IS FILLED IN REVERSE 
1282 ORDER, THAT IS, THE LAST LOGICAL ENTRY OF THE TABLE IS LABELED DIABLK, 
1283 WHILE THE FIRST LOGICAL ENTRY OF THE TABLE IS LABELED DIABLK+DIAEAT, WHE 
aos DIAEXT IS THE LENGTH (EXTENT) OF THE TABLE IN BYTES. 
1 
1286 WHEN THE DIA COMMAND IS EXECUTED, THE DIABLK IS LOADED ONTO THE TS04 STA 
1287 WITH THE FIRST LOGICAL ENTRY AT THE TOP OF THE STACK, AS SHOWN BELOW. 
1288 THE TSO4 THEN JUMPS TO THE P.E. WRAP TASK, IN ROM, WHERE THE FUNCTION IS 
aH EXECUTED USING THE REMAINING STACK ENTRIES AS ARGUMENTS. 
1 
1291 DIABLK+DIAEXT: TSO4 PE WRAP TASK ADDR LO 
1292 TSO4 PE WRAP TASK ADOR HI 
1293 READ CONTROL CROCTLO) 
1294 FORMAT CONTROL (FMCTLO) 
1295 DATA 
1296 CONTROL CIOsco) 
1297 DATA 
1298 CONTROL ¢€IOsco) 
1299 DATA 
1300 CONTROL (Tosco) 
1301 DATA 
1302 CONTROL (TOSCO) 
1303 DATA 
1304 CONTROL (Tosco) 
1305 DATA 


1306 OIABLK: CONTROL (TOSCO) 


T3 
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1307 
iso 5.4.1 TRACK ACTIVE/TRACK INACTIVE TESTS (TEST 4) 
x¢ 
1310 TEST 4 CHECKS THAT THE TRACK ACTIVE FLOP CAN SET AND CLEAR 
1311 IN NRZI MODE FOR ALL CHANNELS. IF THE DATA DOES NOT MAKE A TRANSITION 
1312 WHEN THE WRITE FLAG IS UP, THE TRACK ACTIVE FLOP WILL CLEAR. 
1313 HOWEVER, IT WILL SET IF THERE IS A DATA TRANSITION WHILE THE 
4te WRITE FLAG IS UP. : 
ate: 5.4.1.1 SUBTEST 1 - TRACK INACTIVE TEST 
1317 
1318 THIS TEST FORCES THE TRACK ACTIVE TO CLEAR BY WRITING 
+h ALL O'S DATA. THE PATTERN IS AS FOLLOWS FOR EACH CHANNEL: 
1321 DATA: 
1322 WRTFLG: 011100 
ort TRACK ACTIVE: SHOULD BE O FOR ALL TRACKS 
1324 
eens 5.4.1.2 SUBTEST 2 - TRACK ACTIVE TEST 
1326 
1327 THIS TEST FORCES TRACK ACTIVE TO SET BY WRITING THE FOLLOWING 
pees PATTERN ON EACH CHANNEL : 
1330 DATA: 110000 
1331 WRTFLG: 011100 
ty TRACK ACTIVE: SHOULD BE 1 FOR ALL TRACKS. 
te 5.4.1.3 SUBTEST 3 - TRACK INACTIVE TES? 
1336 THIS TEST FORCES THE TRACK ACTIVE TO CLEAR BY WRITING THE FOLLOWING 
344 PATTERN ON EACH CHANNEL : 
1339 DATA: 111111 
1340 WRTFLG: 011100 
reas TRACK ACTIVE: SHOULD BE O FOR ALL TRACKS 
reas 5.4.1.4 SUBTEST 4 - TRACK ACTIVE TEST 
1345 THIS TEST FORCES THE TRACK ACTIVE FLOP TO SET BY WRITING THE FOLLOWING 
73) PATTERN ON EACH CHANNEL : 
1348 DATA: 001111 
1349 


WRIFLG: 011100 
1350 TRACK ACTIVE: SHOULD BE 1 FOR ALL TRACKS. 
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5.4.2 


5.4.2.1 


5.4.2.2 


5.4.2.3 


5.4.2.4 


5.4.3 


5.4.5.1 
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P.E. DATA TEST (TEST 5) 


TEST 5S WRAPS A DATA PATTERN TO CHECK EACH TRACK 
FOR BIT PICKUPS AND DROPS. 


REGISTER USAGE IS AS FOLLOWS: 
R2 = PREAMBLE DATA FOR TRACKS 1-9 IN BIT POSITION 0-8. 
R3 = 1ST BYTE OF DATA FOR TRACKS 1-9 IN BIT POSITION 0-8. 
THIS Is THE DATA INTEREST AFTER EXECUTING THE TS04 DIA 
R4 = 2ND BYTE OF DATA FOR TRACKS 1-9 IN BIT POSITION 0-8. 
SUBTEST 1 - P.E. DATA TEST/O PATTERN. 
THIS TEST WRAPS AN ALL O'S PATTERN. 
SUBTEST 2 - P.E. DATA TEST/1 PATTERN. 
THIS TEST WRAPS AN ALL 1'S PATTERN. 
SUBTEST 3 - P.E. DATA TEST/SHIFTING 1 PATTERN. 
THIS TEST RIPPLES A 1 IN A FIELD OF 0S. 
SUBTEST 4 - P.E. DATA TEST/SHIFTING O PATTERN. 
THIS TEST RIPPLES A O IN A FIELD OF 1°S. 
TEST 6 SKEWS THE DATA ON A TRACK BY ONE BYTE WITH 
RESPECT TO ALL THE OTHER TRACKS. THAT IS, THE DATA IS ONE BYTE 
LATE ON THE ONE TRACK. EACH TRACK IS TESTED FOR SKEW IN THIS 
MANNER. REGISTER ASSIGNMENTS ARE AS FOLLOWS: 
R2 = PREAMBLE DATA 
R3 = BYTE 1 DATA (WITH THE EXCEPTION OF THE SKEWED TRACK. 
THAT TRACK CONTAINS PREAMBLE DATA) 
R4 = BYTE 2 DATA (WITH THE EXCEPTION OF THE SKEWED TRACK. 
THAT TRACK CONTAINS BYTE 1 DATA) 
SUBTEST 1 - P.E. SKEW TEST 


THIS TEST WRITE AN ALL 1’'S PREAMBLE (SKEWED), AN ALL O'S BYTE 
1 (SKEWED), AND AN ALL 1'S BYTE 2 DATA (SKEWED). 


SEQ 0035 
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5.4.5.2 


5.4.4.1 


5.4.4.2 


5.5 


5.6 


8 
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SUBTEST 2 - P.E. SKEW TEST 
THIS TEST SENDS AN ALL 1'S PREAMBLE (SKEWED), AN ALL 1'S BYTE 
1 DATA (SKEWED) AND AN ALL O'S BYTE 2 DATA (SKEWED). 


TEST 7 CHECKS THE DEAD TRACK LOGIC BY RIPPLING A 
DEAD TRACK THRU A FIELD OF LIVE TRACKS AND ONE LIVE TRACK THRU 
A FIELD OF DEAD TRACKS. ADDITIONALLY, EACH SUBTEST WILL SEND 
1‘S DATA AND 0’S DATA IN ORDER TO TEST THE 1'S OR DEAD REGISTER 
AND THE O'S OR DEAD REGISTER. 
REGISTER USAGE: 

R2 = PREAMBLE ALL 1‘S CHARACTER 

R3 = 1ST DATA BYTE (BITS 0-8) 

R4 = 2ND DATA BYTE (BITS 0-8) 
OTKION = DEAD TRACK DEFINED IN BITS 0-8 (O=LIVE TRK; 1=DEAD TRK) 
SUBTEST 1 - P.E. DEAD TRACK TEST 
THIS TEST RIPPLES A DEAD TRACK IN A FIELD OF LIVE TRACKS. 
SUBTEST 2 - P.E. DEAD TRACK TEST 
THIS TEST RIPPLES A LIVE TRACK IN A FIELD OF DEAD TRACKS. 
TEST 8 - LOOKUP TABLE TEST 


THIS TEST VERIFIES THAT THE CONTENTS OF THE ROM LOOKUP TABLE 
ARE CORRECT. THE ROM CONTENTS IN ADDRESSES 1777-0 ARE CHECKED. 


DATA AND REGISTER USAGE: 
ROMLKI = ROM LOOKUP TABLE ADDRESS. 
ERRLFG = ERROR FLAG. 
RS = DIABLK INDEX. 

TEST 9 - INLINE MICRO DIAG TEST 


pro INLINE MICRO DIAGS TO RUN, THEN CHECKS THE STATUS THEY 


TEST 10 - INIT MICRO DIAG TEST 


~ INIT MICRO DIAGS TO RUN, THEN CHECKS THE STATUS THEY 
ETURN. 


SEQ 0036 
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1447 
1448 
1449 
1450 
1451 
1452 
1453 
1454 
1455 
1456 
1457 
1458 
1459 
1460 
1461 
1462 
1463 
1464 
1465 
1466 
1467 
1468 
1469 
1470 
1471 
1472 
1473 
1474 
1475 
1476 
1477 


002000 


002000 


060 
000001 
000025 
034216 
034270 
002204 
002212 
034664 
000000 
000000 
000000 
000000 
002124 
000000 
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. TITLE PROGRAM HEADER AND TABLES 
-SBTTL PROGRAM HEADER 


-ENABL ABS,AMA 
. 2000 
BGNMOD 


zee 
; THE PROGRAM HEADER IS THE INTERFACE BETWEEN 
; THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 


POINTER BGNAU,BGNDU,BGNSW,BGNSF T ,BGNSE TUP 


HEADER CZTSI,C,0,25,0 


LSNAME: : sDIAGNOSTIC NAME 

-ASCII /C/ 

-ASCII /2Z/ 

-ASCII /T/ 

-ASCII /S/ 

-ASCII /I/ 

-BYTE 19) 

-BYTE 0 

BYTE 0 
LSREV:: sREVISION LEVEL 

-ASCII /C/ 
LSDEPO:: 30 

‘ «ASCII /0/ 

LSUNIT:: sNUMBER OF UNITS 

. WORD TSPTHV 
LSTIML:: sLONGEST TEST TIME 

-WORD 25 
LS$HPCP:: sPOINTER TO H.W. QUES. 

. WORD L $HARD 
L$SPCP:: sPOINTER TO S.W. QUES. 

-WORD LSSOFT 
LSHPTP:: ;PTR. TO DEF. H.W. PTABLE 

. WORD LShw 
LS$SPTP:: sPTR. TO S.W. PTABLE 

.WORD L$SwW 
LS$LADP:: . ;DIAG. END ADDRESS 

-WORD LSLAST 
LS$STA:: sRESERVED FOR APT STATS 

. WORD 0 
L$CO:: 

.WORD 1) 
LSDOTYP:: ;DIAGNOSTIC TYPE 

~WORD 0 
LSAPT:: ;APT EXPANSION : 

~WORD oO 
LSDTP:: ;PTR. TO DISPATCH TABLE 

~WORD LSDISFAT 
LSPRIO:: s;DIAGNOSTIC RUN PRIORITY 


WORD Oo 
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000000 
000000 


1508 002050 003 


003 


002174 


030230 
030212 
000000 
002150 
104035 
000000 
027434 
030170 
027716 
027426 
000000 
000000 
000000 


LSENVI:: 
LSEXPL:: 
LSMREV:: 


LSEF:: 


LS$SPC:: 
LSDEVP:: 
LSREPP: : 
LSEXP4:: 
LSEXPS:: 
LSAUT:: 
L$OUT:: 
L$LUN:: 
LSDESP: : 
L$LOAD:: 
LSETP:: 
LSICP:; 
LSCCP:: 
LSACP:: 
LSPRT:: 
LS$TEST:: 
LSDLY:: 
LSHIME:: 


MS 
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sFLAGS DESCRIBE HOW IT WAS SETUP 
;EXPANSION WORD 
:SVC REV AND EDIT ¢@ 


sDIAG. EVENT FLAGS 


; POINTER TO DEVICE TYPE LIST 
;PTR. TO REPORT CODE 


sPTR. TO ADD UNIT CODE 

:PTR. TO DROP UNIT CODE 

;LUN FOR EXERCISERS TO FILL 
sPOINTER TO DIAG. DESCRIPTION 
sGENERATE SPECIAL AUTOLOAD EMT 
sPOINTER TO ERRTBL 

;PTR. TO INIT CODE 

sPTR. TO CLEAN-UP CODE 

sPTR. TO AUTO CODE 

sPTR. TO PROTECT TABLE 

;TEST NUMBER 

;DELAY COUNT 

:PTR,. TO HIGH MEM 


SEQ 0038 


0) 

0) 
CSREVISI 
CsEDIT 


9) 
9) 


0 
L$sOvTyYP 
1?) 

19] 

0 

L$AU 
L$DU 

i?) 
L$DESC 
ES$LOAD 
1?) 
LS$INIT 
LSCLEAN 
LSAUTO 
LSPROT 
° 

ie) 

°° 


PROGRAM HEADER AND TABLES 
CZTSIC.P11 


002122 
002122 
002124 
002124 
002126 
002130 
002132 
002134 
002136 
002140 
002142 
002144 
002146 


002150 
002150 
002150 
002156 
002164 
002172 


002174 
002174 
002174 


09 - APR - 84 


047503 
020114 
020103 


000 
002174 


051524 
002202 
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052116 
047514 
042524 


030461 


MACY11 30(1046) 09-APR-84 


047522 
044507 
052123 


N3 


DISPATCH TABLE 
-SBTTL OISPATCH TABLE 
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zee 
; THE DISPATCH TABLE CONTAINS THE STARTING ADDRESS OF EACH TEST. 
; IT IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST. 


222s 
DISPATCH 10 
LSDISPATCH:: 


-SBTTL DESCRIPTIVE TEXT 


32 LINES OF TEXT PRINTED TO THE OPERATOR TO IDENTIF y 


DESCRIPT 
LSDESC:: 


DEvTyP 
LSDvTyYP:: 


<CONTROL LOGIC TEST> 


<TS11> 


SEQ 0039 


THE OIAG AND THE DEVICE 


-ASCIZ 


-EVEN 


-ASCI2Z 
-EVEN 


“CONTROL 


/TS11/ 


PROGRAM HEADER AND TABLES 


CZ2TSIc.P 11 


002202 
002202 
002204 
002204 


002204 
002206 


002210 
002210 
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000002 


172522 
000224 


14;37 


B / 

je. 
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DEFAULT HARDWARE P - TABLE 


-SBTTL DEFAULT HARDWARE P-TABLE 
ee 
THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES OF 


THE TEST-DEVICE PARAMETERS. THE STRUCTURE OF THIS TABLE 
IS IDENTICAL TO THE STRUCTURE OF THE RUN-TIME P-TABLE. 


BGNHW =F PTBL 


LSHW:: 

OFPTBL:: 
172522 sTSSR ADDRESS 
224 sVECTOR ADDRESS 
ENOHW 


L10000: 


SEQ 0040 


£10000 -L 


C4 
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1006 -SBTTL SOFTWARE P-TABLE 


gee 
1609 3 THE SOFTWARE P-TABLE CONTAINS THE VALUES OF THE PROGRAM 
1610 3 PARAMETERS THAT CAN BE CHANGED BY THE OPERATOR, 
1611 Ries 


1614 002210 BGNSW = SFPTBL ‘ 
1615 002210 000001 - {WORD 110001 -L 
1616 002212 L$SW;: Sea: 

lel? 002212 SFPTBL:: 


1619 002212 000 CMPFLG:: .BYTE O sENABLE DATA COMPARE ERROR PRINE HAAG | 
1620 :0=D0 NOT ENABLE [5 DEFAULT 
1621 002218 000 -BYTE O sSPARE FLAG 


1623 002214 ENOSW 
1624 002214 L10001; 


1626 002214 ENDMOD 


11 Mog Ren Ba fa: 37 


002214 


002214 


000340 
000 500 


D4 
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- TITLE GLOBAL AREAS 
-SBTTL GLOBAL EQUATES SECTION 
BGNMOD 


tee 

s THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES THAT 
s ARE USED IN MORE THAN ONE TEST. 
 ieeliees 


EQUALS 
i 
; BIT DIF INITIONS 
3 


BIT15== 100000 
BIT14== 40000 
BIT13== 20000 
BIT12*= 10000 
BIT11== 4000 
BIT10*= 2000 
BITO9== 1000 
BITOB8== 400 
BITO7*= 200 
BITO6== 100 
BITOS== 40 
BITO4== 20 
BITO3*= 10 
BITO2== 4 
BITOL== 2 
BITOO== 1 


; 

BIT9== BITO9 
BIT8s= BITOS 
BIT7** BITO7 
BIT6*= BITO6 
BITS== BITOS 
BIT4*+ BITO4 
BIT3== BITO3 
BIT2*= BITO2 
BITis= BITOL 
BITOs= BITOO 


a 
; EVENT FLAG DEFINITIONS 
s EF 32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION 


‘ 

EF .START== $2. 3 START COMMAND WAS ISSUED 

EF RESTART == 31. 3 RESTART COMMAND WAS ISSUED 

EF .CONTINUE «© 30. ; CONTINUE COMMAND WAS ISSUED 

EF .NEWs= ge ; A NEW PASS MAS BEEN STARTED 

EF .PWR=« 28. : A POWER -FAIL /POWER-UP OCCURRED 
6 


a 
3; PRIORITY LEVEL DEFINITIONS 


é 
PRIO7== 340 
PRIO6*= 300 


E4 
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1683 000240 PRIOS== 240 
1684 000200 PRIO4*= 200 
1685 000140 PRIO3== 140 
1686 000100 PRIO2== 100 
1687 000040 PRIO1L== 40 
1688 000000 PRIOO== 0 
1689 : 
ote sOPERATOR FLAG BITS 
1692 000004 EVL== 4 
1693 000010 LOT=- 10 
1694 000020 ADR== 20 
1695 000040 I0U==2 40 
1696 000100 ISR=e= 100 
1697 000200 UAM== 200 
1698 000400 BOE == 400 
1699 001000 PNT== 1000 
1700 002000 PRI== 2000 
1701 004000 IXE== 4000 
1702 010000 IBE== 10000 
1703 020000 IER== 20000 
1704 040000 LOE== 40000 
roe 100000 HOE == 100000 
1707 sBIT DEFINITIONS USED TO SPECIFY THE ROM ADDRESS LINES IN THE ROMLOK 
1708 3 SUBROUTINE 
1709 
1710 001000 AQ== 1000 
1711 000400 A8== 400 
1712 000200 A7== 200 
1713 000100 A6== 100 
1714 000040 AS=* 40 
1715 000020 A4== 20 
1716 000010 A3== 10 
1717 000004 A2==s 4 
1718 000002 Al== 2 
1719 000001 AQ== 1 
1720 
1721 
1722 FORAAAEHEHEDSEEREREDASEREEEDERESEROSEAEEEEESEEEMEEECESEREDEEESEDEDEEEEEEREEEEEES 
‘res Pe UU VIII VIVE riririiririviviriiriririririrrrirryvrrrrrrrrrrrrvryTTTiTrTrrvirirrrTy ty) 
a 
fae : THE FOLLOWING DEFINITIONS MAY CHANGE ON MICRO-CODE REASSEMBLY: 
: 
1727 000005 WRPLO==5 ;sWRITE WRAP TASK ADR LO. 
1728 000200 WRPHI = =200 sWRITE WRAP TASK ADR HI. 
1729 000000 POP JHI = =0 3TSO4 POPJ ADDRESS HI (RTS) 
ioe 000033 POP JLO==33 3TSO4 POPJ ADDRESS LO (RTS) 
3 
1732 . SPPOAAAAOEEEREEOAEEEEEEHEEEEESEOEDESEOEEEEEEESEREEERERHRESEEHEAEEEEEEEREREKEEEDDED 
1733 POUT U IVT iv iti ririri tier rrrr Tri TitrrrrvrrrrrrryrrrrrevrrryrvrrrerererTt Ty 
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7s : TSSR REGISTER BIT DEFINITIONS. 
1737 001000 TS.XAL#==1000 sEXTENDED ADDRESS BIT 1 
1738 000400 TS. XAO==400 sEXTENDED ADDRESS BIT O 
1739 000200 TS.SSR==200 s;SUBSYSTEM READY BIT. 
1740 002000 TS.NBA==2000 — BUFFER ADRESS - CLEARED BY SET CHAR 
1741 -SET BY COMD WITHOUT SET CHAR 
1742 020000 TS. SPE ==20000 i SERTAL BUS PARITY ERROR AT TS11 
1743 177717 FCMASK==177717 sFATAL CLASS CODE MASK 
fee 177701 TCFCMK==177701 s TERMINATION AND FATAL CLASSES CODE MASK 
17 
1746 3; THE FOLLOWING ARE BIT DEFINITIONS FOR THE COMMAND WORD 
174 
1748 100000 ACK .C==100000 sACKNOWLEDGE BIT 
1749 040000 CvC.C==40000 s;CLEAR VOLUME CHECK. 
1750 020000 OPP .C==20000 sOPPOSITE BIT 
1751 010000 SwB.C==10000 ;SWAP BYTE BIT 
1752 004000 MOD.C3==4000 sMODE BIT 3 
1753 002000 MOD .C2==2000 sMODE BIT 2 
1754 001000 MOD.C1==1000 sMODE BIT 1 
1755 000400 MOD .CO==400 sMODE BIT O 
1756 000200 IE.C==200 s INTERRUPT ENABLE 
1757 000100 FMT.C1==100 sFORMAT BIT 1 
1758 000040 FMT.CO==40 sFORMAT BIT O. 
1759 000020 CMO .C4==20 ;COMMAND BIT 4 
1760 000010 CMD .C3==10 sCOMMAND BIT 3 
1761 000004 - CMD.C2==4 s;COMMAND BIT 2 
1762 600002 CMD.Cl==2 ;COMMAND BIT 1 
bse 000001 CMD.CO="1 ;COMMAND BIT O 
re : BIT DEFINITIONS FOR DEVICE CHARACTERISTICS. 
1767 000200 CH.ESS==200 
1768 000040 CH.EAI==40 
: 7 000020 ChH.ERI==20 
vr ;ROM LOOKUP TABLE BIT DEFINITIONS 
1773 000200 .MULT==200 sMULT TRACKS 
1774 000100 .RDFMK ==100 ;READ FILE MARK PATTERN 
1775 000040 .PREAM==40 sPREAMBLE 
1776 000020 . 90F 9==20 39 OF 9 TRACKS 
1777 000010 OOF 9+=10 s;NONE OF 9 TRACKS 
1778 000004 -CORD==4 i CORRECTABLE DATA 
1779 000002 . INCOR==2 ; INCORRECTABLE DATA 
sree 000001 .B0F9==1 38 OF 9 TRACKS 
By : MISCELLANEOUS DEFINITIONS. 
1784 000340 INTPRI==PRIO7 sPRIORITY TO BE USED IN THE INTERRUPT STATE. 
1785 000010 SCHEXT==10 s;BUFFER LENGTH. (EVEN @) 
1786 000016 MSGEXT==16 sMESSAGE BUFFER LENGTH IN BYTES. (EVEN @? 
1787 000020 DIAEXT==20 sOIABLK EXTENT IN OCTAL. 
1788 100006 OITA==ACK.C!CMD.C2!CMD.C1 DIA CMD WORD. 
1789 140004 SCH==ACK.C#CVC.C!CMD.C2 3SCH (SET CHAR) CMD WORD. 


1790 100017 GES==ACK.C!CMD.CO!CMD.C1ICMD. c2:cmo. C3 ;CET STATUS COMMAND 


G4 
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1791 020000 BPE = =20000 sXSTAT2, SERIAL BUS PARITY ERROR AT TS04 
1792 040000 SIP ==40000 sXSTAT2, SILO PARITY ERROR 

1793 000200 MOT ==200 sXSTATO, TAPE MOVING 

ios 177777 ENOTBL**1777/7 sEND OF A TABLE FLAG 

1 

1? THE FOLLOWING “ete THE RELATIVE POSITIONS OF THE STATUS WORDS 
See sIN THE MESSAGE BUFFER 

17 

1799 000004 MSS$RFC==4 sRESIDUAL FRAME COUNT. 

1800 000006 MS $XSO=*6 sEXT STATUS REG O 

1801 000010 MS$XS1==10 sEXT STATUS REG 1 

1802 000012 MS$XS2*=12 sEXT STATUS REG 2 

1803 000014 MS$XS3==14 sEXT STATUS REG 3 

1804 000004 C18s0R==4 sINDEX FOR OUTPUT READY INFO (CHAN 1-8). 
1805 000005 C18$1D0==5 s INDEX FOR 1 OR DEAD INFO (CHAN 1-8) 
1806 000007 Ci8$TA==7 sINDEX FOR TRACK ACTIVE INFO. (CHAN 1-8) 
1807 000010 C18$DA==10 s INDEX FOR DATA INFO. (CHAN 1-8) 

1808 000011 C18$sTO==11 s INDEX FOR TRACK DEAD INFO. (CHAN 1-8) 
1809 000012 C18s0D0==12 s INDEX FOR O OR DEAD INFO. (CHAN 1-8) 
1810 000013 ROMSLK==13 s INDEX FOR LOOKUP TABLE 

1811 000014 PRCHST=-=14 sSTATUS OF THE PARITY CHANNEL (CHANPTL 9) 
1812 000001 CH9.OR==1 sBIT POSITION FOR OUTPUT RDY FOR CHAN 9 
1813 000002 CH9.10==2 sBIT POS FOR 1 OR DEAD INFO FOR CHAN 9. 
1814 000004 CHO. TA==4 sBIT POSITION OF THE TRACK ACTIVE INFO CHAN 9. 
1815 000010 CH9.DA==10 sBIT POS OF DATA INFO FOR CHAN 9. 

1816 000020 CH9. TD==20 sBIT POS OF TRK DEAD INFO FOR CHAN 9. 
ap 000040 CH9.0D==40 sBIT POS OF O OR DEAD INFO FOR CHAN 9. 
1819 3 THE FOLLOWING DEFINITIONS SHOW THE RELATIVE POSITIONS OF THE COMMAND 
oor sPACKET ENTRIES. 

1822 000000 CPSCMD==0 sCMDPKT+O==TSO4 COMMAND. 

1823 000002 CPSADL ==2 sCMOPKT+2==BUFFER ADDRESS LOW. 

1824 000004 CPSADH==4 sCMOPKT+4==BUFFER ADDRESS HIGH. 

1825 000006 CPSCNT=*6 sCMOPKT +6=-BYTE/FILE/RECORD COUNT. 
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1827 ;THE FOLLOWING ARE REGISTER AND BIT DEFINITIONS FOR THE TS04 
oe sREGISTERS OF INTEREST IN THIS DIAGNOSTIC. 
1 
1830 FOCORESEHHAAEEAAEEEEEEEEAREREEEEESEEEREEAEEEEEEEEDEAEREREDOEE 
1831 sFMCTLO - FORMATTER MAJOR STATE CONTROL REG 
1832 000004 FMCTLO==4 
ety ;WRITE REGISTER 4 
1 
1835 sTHIS REGISTER IS SET UP FOR THE PORTION OF THE 
1836 sRECORD WE ARE PRESENTLY READING 
He 
1839 000200 FC.RD== 200 sWE ARE DOING NORMAL READ. IF 0, WE DISABLE SOME ERROR 
1840 sCORRECTION LOGIC SO WE'RE MORE DISCRIMINATING 
1841 : sFOR READ AFTER WRITE. 
1842 
1843 000100 FC.FLO==100 sSETING THIS BIT CAUSES .FMFLO ON 6BUS TO BE TRUE 
1844 s(NEEDED BY THE RD PE ROUTINE) 
1845 000010 FC.DAT==10 sDATA MODE 
1846 000004 FC. PRE==4 sPREAMBLE MODE 
1847 000002 FC.vCO==2 3VCO SYNC MODE 
1848 000001 FC.NRZ==1 sNRZI MODE (FORCE SKEW WINDOW TO STAY OPEN) 
1849 sCAUSES FMTAUI TO BE CLRED WHEN YOU WRITE 
1850 ;TO THE FMCLOO REGISTER. 
1851 ; FOCRAASEHHEEAEAEHEEESEEESEEEHEEEEDEEEEEAEEEEEEEEEEEEEEEEEOEEEE 
1852 
1853 . sRDCTLO - READ CONTROL REGISTER 
1854 000020 ROCTLO==20 
pot sWRITE REGISTER 20 
pit sTHIS REGISTER CONTROLS THE FORMATTER MODE AND THRESHOLD. 
1859 000200 RD.REV==200 :1 FOR REV MOTION, O=2F WD 
oe 000100 RD .MAI==100 31/0 FORMATTER DATA WRAPAROUND 
1862 000040 RD.SPC==40 sWE ARE SPACING RECORDS. (THIS BIT IS UNUSED IN 
pets 3; THE HARDWARE BUT IS A SOFTWARE FLAG IN THE READ CODE) 
1865 000020 RD. SKP==20 ;WE ARE SKIPPING FILES. (THIS BIT IS UNUSED IN 
pees 3; THE HARDWARE BUT IS A SOFTWARE FLAG IN THE READ CODE) 
1868 3 THE toe THRESHOLDS ARE AVAILABLE: 
1869 eaaee USE DIAG USE 
1870 000007 RD.110==-7 HI PREAMP GAIN 
1871 000006 RD .90==6 : LO PREAMP, BAD TAPE CLEA 
1872 000005 RO. 75*=5 ; RESIDUAL ERASE CHK 
1873 000004 RD .68==4 ; FWO/REV AMP BALANCE 
1874 000003 RD.40==3 sNRZ WRT 
1875 000002 RD.20-=+2 sNRZ RO, PE WRT 
1876 000001 RD.12=-1 sPE READ, NRZ ERR RECOV RD/WRY CROSSTALK 
1877 000000 RD.O7==0 3PE ERR RECOV ERASE FUNCTION 
1878 ;CATA PORTION ONLY 


14 
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1880 FPAAHAAAREEAAEDAEEESAEEDEEEEDEEAEEHEEEEEOEEEEEAEEREEEREREEEES 
1881 sIOSCO - [70 SEQUENCER SILO CONTROL BUFFER OUT 
1882 000014 I0SCO==14 
rot} sWRITE REGISTER 14 
1885 sTHIS REGISTER CONTAINS THE SILO CONTROL BITS FOR DATA WRITTEN 
1886 s6Y THE MAIN OR I/O MICRO TO THE SILO. THE DATA IN THIS REG 
1887 :IS PAIRED WITH THE IOSDO REG AND PUT IN THE SILO WHENEVER 
1888 sTHE IOSICO REG IS CLOCKED. THIS REGISTER NEED ONLY BE WRITTEN 
1889 ;ONCE IF THE SAME OLD DATA IS OK TO BE WRITTEN IN THE SILO. 
1890 sNOTE THAT IF THE I/0 IS WRITING THE SILO, THE MAIN MUST PUT EVEN 
1891 sPARITY IN THE BITS 357 OR THE I/O WILL WRITE PAR ERRS IN THE SILO. 
pte :( THE IS.OAP BIT IS DON’T CARE HERE FOR I/O WRITING THE SILO) 
1 
1894 000200 IS.PAR== 200 3000 PAR BIT FOR ALL 16 BITS CCNRTL AND DATA) 
1895 sNOTE THAT THE BITS MASKED SY 357 MUST BE 
pte sEVEN PARITY BECAUSE THE 9 DATA BITS ARE ODD 
1 
1898 000100 IS. IVP== 100 s INVERT CNTRL SILO PAR BIT BEFORE MOVING 
tee 3TO WRITE BOARD (WRITE EVEN PARITY ON TAPE) 
1 
1901 000040 IS.NRZ== 40 sINVERT WRITE BUFFER BIT IF ASSOCIATED SILO 
Pons ;DATA ert IS Al. CIF IS.NRZ==0, WE'RE IN PE MODE) 
peed 000020 IS.DAP== 20 :000 PARITY FOR THE 8 DATA BITS IN IOSDO 
1906 000010 IS.LRC#= 10 sCAUSES SYNCRONOUS CLR ON WRT BOARD TO WRITE THE 
1907 000004 IS.WRF == 4 ;THIS FLG BIT SHOWS UP AT THE WRITE BOARD 
1906 sWITH THE CORRESPONDING DATA. THE FUNCTION OF 
1909 ;THE BIT WILL BE DEFINED BY THE WRITE BOARD. 
1910 sNOTE HOWEVER THAT IF THE WRITE BOARD SEES 
1911 ;THE BIT 1, THE PA.WRF BIT IN THE 
1912 sPRATNI REG WILL ALSO BE 1 CIF ENABLED 
1913 ;TO AFFECT THE ATTN REG). 
1914 ;THE 2 LOW BITS ARE WRITABLE AND AFFECT THE PARITY TREES BUT 
1915 sOTHERWISE ARE UNIMPLEMENTED 
1916 FOASSAEEEEEEEREEEOEAEHEHOHEEEEEEHEEEEEEEEHEEEEEEEEEEEEEEEEEEE 
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GLOBAL DATA SECTION 


; THE GLOBAL DATA SECTION CONTAINS DATA THAT ARE USED 
; IN MORE THAN ONE TEST. 


TSOB:: O :TSO4 DATA BUFFER ADDRESS. 
TSOBHI:: O ;TSO8 HI BYTE ADDRESS. 
TSBA:: O 3TSO04 BUFFER ADDRESS REG ADDRESS. 
TSBAHI:: O :TSBA HI BYTE ADDRESS. 
TSSR:: O :TSO4 STATUS REGISTER ADDRESS. 
TSVCT:: O 3TSO04 VECTOR ADDRESS. 
: THE FOLLOWING IS THE TSO4 COMMAND PACKET. 
; (MUST BE ON A MODULO 4 BOUNDARY) 

.*. 636177774 sFORCES CMD PKT ON MODULO 4 BOUNDARY. 
CMDPKT: :0 31ST WORD:: TSO4 COMMAND 

re) 32ND WORD: : BUFFER LOW ADDR. 

0 :3RD WORD:: BUFFER HIGH ADDR. 

re) 34TH WORD:: BYTE/RECORD/FILE COUNT. 

3SET CHAR PACKET 

.*,°3€177774 
SCHPKT: :SCH ;SET CHAR COMD HEADER 

SCHBLK :SET CHAR BLK AD LO 

000000 SET CHAR BLK AD HI 

SCHE XT ;BPCR=LENGTH OF SCHAR BLOCK 

sDIAG PACKET 

. =, ¢3E177774 
DIAPKT::DIA sDIAG COMD HEADER 

DIABLK s;DIAG BLOCK AD LO 

000000 s;DIAG BLOCK AD HI 

DIAEXT ;BPCR=DIABLK LENGTH 
: THIS IS THE MESSAGE PACKET. 
MSGPKT:: 0 :1ST WORD:: MESSAGE WORD. 
MSGOFL:: O :2ND WORD:: DATA FIELD LENGTH 
RFC:: 0 :3RD WORD: RESIDUAL FRAME COUNT. 
XSTATO:: O 34TH WORD: EXTENDED STATUS REG 0. 
XSTAT1:: O 35TH WORD: EXTENDED STATUS REG l. 
XSTAT2:: O 36TH WORD:: EXTENDED STATUS REG 2. 
XSTAT3:: O 37TH WORD:: EXTENDED STATUS REG 8. 
MSGEND== , ;PAST MSG PKT POINTER 


TSO4 REGISTER ADDRESSES. 


THE SET CHARACTERISTIC BLOCK, 


SEQ 0048 
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1974 
1975 002276 002260 SCHBLK:: MSGPKT 31ST WORD:: MSGPKT ADDR LO. 
1976 002300 000000 ie) s2ND WORD MSGPKT ADOR HI. 
1977 002302 000016 MSGE XT area WORD : : MSG BUFFER LENGTH(BYTES). 
1978 002304 000000 0) H WORD: CHARACTERISTIC WORD. 
Bee ; ADDRESSES OF INTERRUPT HANDLING ROUTINES. 
1 
1981 002306 014454 TS4INT:: TS4INO sDEVICE 0. 
1982 002310 014464 TS4IN1 sOEVICE 1. 
1983 002312 014474 TS4IN2 sDEVICE 2. 
1984 002314 014504 TS4IN3 sDEVICE 3. 
1985 
1986 
1987 $ THE DIAGNOSTIC COMMAND BUFFER. WHEN A DIAG COMMAND IS 
1988 ; EXECUTED, THE TSO4 PLACES THE CONTENTS OF THIS BUFFER ONTO THE TS04 
1989 ; STACK IN REVERSE ORDER, THEN EXECUTES WHAT IS ON THE STACK Br 
1990 ; PERFORMING A COMMAND SIMILAR TO AN RTS. 
1991 ; THE BUFFER IS INITIALLY LOADED WITH THE TSO4 CODE FOR 
1992 ; AN RTS COMMAND. 
1993 
1994 
1995 002316 000 DIABLK:: .BYTE POPJHI 
1996 002317 033 -BYTE POPJLO 
1997 002320 000 -BYTE  POPJHI 
1998 002321 033 -BYTE POPJLO 
1999 002322 000 «BYTE POPJHI 
2000 0023253 033 -BYTE POPJLO 


tw 
8 
& 


-BYTE  POPJHI 


2002 002325 033 -BYTE POPJLO 
2003 002326 000 -<BYTE POPJHI 
2004 002327 033 -BYTE POPJLO 
2005 002330 000 -BYTE POPJHI 
2006 002331 033 -BYTE  POPJLO 
2007 002332 000 -BYTE  POPJHI 


ft 
8 
@ 
8 
ft 
Ww 
w 
w 
° 
w 
w 


-BYTE  POPJLO 
-BYTE POPJHI 
-BYTE  POPJLO 


try 
28 
Oo 
88 
Ww 
aes 
a8 
WN 

a 
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;TABLES OF FORMATTER AND WRITE CONTROL REG ACTUAL € EXPECTED 

EXPTBL:: ;TABLE 1 EXPECTED REGS 

EXORDY:: O sEXPECTED OUTPUT READY INFO 

EX1DTR:: O sEXPECTED 1 OR DEAD TRACK INFO 

EXTRAC:: O sEXPECTED TRACK ACTIVE INFO 

EXDATA:: O sEXPECTED DATA INFO 

EXTRDD:: O ;EXPECTED TRACK DEAD INFO 

EXODTR:: O sEXPECTED O OR DEAD TRACK INFO. 

EXROML:: O sEXPECTED ROM LOOKUP TABLE INFO. 

ACTTBL:: ;TABLE 2 ACTUAL REGS 

ACORDY:: O sACTUAL OUTPUT READY INFO 

AC1OTR:: O sACTUAL 1'S OR DEAD TRACK INFO 

ACTRAC:: O sACTUAL TRACK ACTIVE INFO 

ACCATA:: O sACTUAL DATA INFO 

ACTRDO:: O ;ACTUAL TRACK DEAD INFO 

ACODTR:: © sACTUAL O OR DEAD TRACK INFO 

ACROML:: O sACTUAL ROM LOOKUP TABLE INFO 

ORDTBL:: ;TABLE 3 SUBTESTS’ ORED ACTUAL REGS 

ORORDY:: O ;OUTPUT READY 

OR1LOTR:: O 31 OR DEAD TRACK 

ORTRAC:: O ; TRACK ACTIVE 

ORDATA:: O ;DATA 

ORTROD:: O ; TRACK DEAD 

ORODTR:: O 30 OR DEAD TRACK 

ACTRK1:: O sACTUAL TRACK ACTIVE TEST 4,SUB 1 

ACTRK2:: O sACTUAL TRACK ACTIVE TEST 4,SUB 2 

ACTRK3:: O sACTUAL TRACK ACTIVE TEST 4,SU6 3 

ACTRK4:: O sACTUAL TRACK ACTIVE TEST 4,SUB 4 

OTKION:: O ;DEAD TRACK IDENTIFICATION REG. (BITS O THRU &) 
31=DEAD; O=LIVE. 

ROMLKI:: O ;ROM LOOKUP TABLE ADDRESS 

UNIT:: © sCURRENT UNIT @ FOR PRINTS. 

TS4CL t¢) ;1SO04 MICRO-CODE LEVEL - STORED IN SCH TEST. 

TIME:: O ; TIMEOUT COUNTER. 

TEMPO:: O ;GENERAL PURPOSE LOCATION 0. 

TEMP1:: O ;GENERAL PURPOSE LOCATION 1. 

TEMP2:: O sGENERAL PURPOSE LOCATION 2. 

: PROGRAM CONTROL FLAGS. 

ERRFLG:: .BYTE O 30 = NO ERROR 

CTLFLG:: .BYTE O ;ALL PURPOSE PROGRAM CONTROL FLAG 

T4S4:: .WORD O sBTL TEST 4 SUBTEST 4 FLAG 


EVEN 
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M4 


-SBTTL GLOBAL TEXT SECTION 


;THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS, 
sMESSAGES, AND ASCII INFORMATIGN THAT ARE USED IN MORE THAN 


;ONE TEST. 
; ASCII MESSAGES USED IN ERROR REPORT HEADERS. 
-NLIST BEX 


DESCM:: .ASCIZ 
MODUER:: .ASCIZ 
SSROFF:: .ASCIZ 
SSRON:: .ASCIZ 


/TSO4 CONTROL LOGIC TEST PROGRAM/ 
/COMMAND PACKET ADDR NOT ON MODULO 4 BOUNDARY: RELOAD! / 
4TSO4 NOT READY - SSR NOT SET/ 
/TSO4 DID NOT DROP READY ON COMD ISSUANCE -SSR NOT 0/7 
/PDOP11 - TS11 WRAP FAILURE/ 
/PDP11 - TS11 WRAP FAIL ON TSSR EXT ADDR BITS/ 
/POP11 - TSO4 WRAP FAILURE/ 
/SET CHARACTERISTIC ERROR/ 
/TRACK ACTIVE NOT O FOR 1 OR MORE TRACKS/ 
7TRACK ACTIVE NOT 1 FOR 1 OR MORE TRACKS/ 
/TRACK ACTIVE ERROR/ 
/P.E. DATA WRAP ERROR/ 
/P.E. SKEW ERROR/ 
/P.E. DEAD TRACK ERROR/ 
/DATA OR SKEW OR DEAD TRK ERR/ 
7ROM LOOKUP TABLE ERROR/ 
ZIMPROPER TERMINATION - SPECIAL CONDITION BIT SET/ 
/NO INTERRUPT / 
ZINTERRUPT OCCURRED WHEN DISABLED/ 
—" DIAGNOSTIC ERROR TSSR:FC=0,71C=7/ 
x 


- SEQ 0051 
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TS1160:: 
FMTCTR:: 


FMTCH6:: 
FMTCHS:: 
FMTCH4:: 
ROCH2: : 
ROCH1:: 
ROCHPS: : 


IOBRD: : 


CRMSG: : 
T4S4MG: : 
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sASCII BASIC MESSAGES USED IN ERROR REPORTS 


BEX 

/@ASEE OP PANELSN/ 

/@AIF UOK LIT THEN BAD TS11 BOARDsSN/ 

/®S2S6AELSE OP PANEL =MICRO IO ERROR CODE 100-110sN/ 
/SACODE LOOPSS1LOSADE SCRIPT IONSS9OSAMODULE( SLOT )stN2/ 


SEQ 0052 


/@A100 14 I0 MICRO SSTEP,IOATN,...sS58AM8967( 12) ,MB8963¢ 11 )SN/ 


/@A1L01 15 IOCNO REG TEST#S15#AMB967( 12 )aN/ 
/@A102 15 FRAME CNTR TESTSS148AM8966( 14 )sSN/ 


/#@A103 16 SILO GOOD PAR DATA - WRT FLGSS18AM8966( 14) .M8963( 11 


/#A104 17 SILO BAD PAR - DATA LATESSSSAM8966( 14 )SN/ 


/#A10S 20 I0 LOOP-0'SsS 188AM8965( 15 )sN/ 
/@A106 21 I0 LOOP-1'S#S18sAM8965( 15 )sN/ 


/#A107 os IO LOOP-SHIFT LENGTH MUX#S5SAMB965( 15 )SN/ 


/#A110 SERIAL BUS - TS11 ALIVESS68AM8965( 15), TSL1SN/ 


7aSSOMAMOTHER BOARD, SBUS CABLESN/ 


/S@ABAD TS11 BOARDSN/ 

/®@ABAD FORMATTER CONTROL BOARD M8922 SLOT 7sN/ 

/®@ACHECK VCO ADJUST ON M89225N/ 

/@ABAD FORMATTER CHANNEL BOARD M8924 SLOT 68N/ 

/SABAD FORMATTER CHANNEL BOARD M8924 SLOT SsiN/ 

/®ABAD FORMATTER CHANNEL BOARD M8924 SLOT 4sN/ 

/®ABAD READ CHANNEL BOARD G157 SLOT 2sN/ 

/@ABAD READ CHANNEL BOARD G157 SLOT isN/ 

/@ABAD READ CHANNEL BOARD M8923 SLOT 30N/ 

/®ACHECK SKEW AND THRESHOLD ADJUSTS ON M8923siN/ 

/@AERROR IN IO BOARDS(SLOT) OR SBUS CABLESN/ 

/%AMB965( 15) ,.M8966( 14) ,.M8967( 12 N27 

/AOK 8 N/ 

—a— G1S7 BOARDS FOR CORRECT PLACEMENT OF CésN/ 
x 


sis NEE BE cen 





sBTL 
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104423 


012746 
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177777 


006124 
006124 
000001 
000004 
000002 
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.SBTTL GLOBAL ERROR REPORT SECTION 


td 
’ THE GLOBAL ERROR REPORT SECTION CONTAINS THE PRINTB AND PRINTX CALLS 
s THAT ARE USED IN MORE THAN ONE TEST. 


LONMSG: : 
WHILE (R1) NE 0177777 DO 


MSGADR: 
10002: 


WRAPRI1:: 


sLONG MESSAGE PRINT SUBR 
sENTER WITH R1=AD OF 


MSG AD TABLE 
sMSG AD TABLE CONTAINS AD OF MSGS TO PRINT, 
sPER MSG. 


sAS END OF TABLE FLAG 


BGNMSG 


LONMSG 


LET MSGADR :* (R1) 


PRINTB 


LET R1 


ENDODO 


EXIT 

. WORD 
ENDMSG 
BGNMSG 


“PRINTB 


PRINTX 


MSGADR 


:* RL + @2 


MSG 


te) 


WRAPR1 
#751180 


OEEMLA,RS5, TEMPL UNIT 


SEQ 0053 


IT ALSO INCLUDES THE ASCII MESSAGES 
: THAT ARE USED BY THE PRINTB AND PRINIX CALLS... 


500008: 


500018: 


ONE .WORD AD 
THE TABLE MUST ENO WITH .WORD ENDTBL<=177777 


TRAP 


(R1),917 
50001$ 


(R1).MSG 


GLOBAL. 
C2TsIc 


AREAS 


MACYL1 5 


Pil 09 - APR - 84 


006 166 
006172 
006174 


012746 


104423 


012746 


104423 


012746 


013746 
013746 


011046) 0O9-APR-84 14:40 PAGE 56 
GLOBAL ERROR REPORT SECTION 


14:37 


000012 


051524 
051524 


000012 


051524 
052101 


040502 
040502 


040502 
041123 


EEMIA: 


EEM2A;: 


ead 


‘KIT MSG 


BEX 
/@ATSBA EXPECTED=88168N/ 


/@ATSBA ACTUAL +8S288 1685 SSAUNIT: SD 16N2/ 


-LIST ®8Ex 


PRINTX 


EXIT MSG 


WRAPRO 
@ITOBRD 


SEEM2A,R4, TEMP1L, UNIT 


ISt BEX 


»NL 
-ASCITI 
-ASCIZ 


/SATSBA EXPECTED =s88eN/ 


/@ATSBA ACTUAL =8S28888S SSAUNIT : SD 18N2/ 


-LIST BEX 


EVEN 


ENOMSG 


PRINTX 


WRAPR3 
@IOBRD 


MEEM3SA,R4, TEMPO ,UNIT 


TRAP 


TRAP 


SEQ 0054 


04, -(SP) 
SP RO 
CSPNTx 
#12,9P 


Js MP 
L10003-2 


C$MSG 


CsMSG 


SIOBRD, - 
O1,-\SP) 
SP,RO 
CSPNTB 
@4,SP 


UNIT, “5 
TEMP2, -¢ 


D5 
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CZ2TSIC.P1il 09-APR-84 14:37 GLOBAL ERROR REPORT SECTION SEQ 0055 
2184 006506 010446 MOV R4, -(SP) 
2185 006510 012746 006534 MOV GEEMSA, - 
2186 006514 012746 000004 MOV @4,-(SP) 
2187 006520 010600 MOV SP ,RO 
2188 006522 104415 TRAP CSPNTX 
2189 006524 062706 000012 ADD #12,SP 
2190 006530 EXIT MSG 
2191 006530 000167 -WORD JS JMP 
2192 006532 000072 «WORD L110005-2 
2193 -NLIST BEX 

006534 040445 051524 051123 EEMSA: .ASCII /#ATSSR EXPECTED=8888N/ 

006561 045 052101 051525 ° tris TSSR ACTUAL #5288885 3SAUNIT : SD1SN2/ 

Ll x 

2194 -EVEN 
2195 006626 ENOMSG 
2196 006626 L10005: 
See 006626 104423 TRAP C$MSG 
21 
2199 006630 BGNMSG WRAPR4 
2200 006630 WRAPR&4;: : 
2201 006630 PRINTB @1TS1180 
2202 006630 012746 005041 MOV #751160, 
2203 006634 012746 000001 MOV #1, -(SP) 
2204 006640 010600 MOV SP RO 
2205 006642 104414 TRAP CSPNTB 
2206 006644 062706 000004 ADD 04 ,SP 
2207 006650 PRINTX @E€EM4A,R2, TEMP2,UNIT 
2208 006650 013746 002422 MOV UNIT,-CS 
2209 006654 013746 002434 MOV TEMP2, -¢ 
2210 006660 010246 MOV Re. -C(SP) 
2211 006662 012746 006706 MOV GEEM4A, - 
2212 006666 012746 000004 MOV 04, -C(SP> 
2213 006672 010600 MOV SP ,RO 
2214 006674 104415 TRAP CSPNTX 
2215 006676 062706 000012 ADD #12.SP 
2216 006702 EXIT MSG 
2217 006702 000167 -WORD J$SJMP 
2218 006704 000072 «WORD (10006-2 
2219 -NLIST BEX 

006706 040445 051524 051123 EEM4A;: .ASCII /#ATSSR EXPECTED=8B88N/ 

006733 045 052101 051523 varie = ACTUAL *8S288885S SSAUNIT : SD 1SN2/ 

LIS x 

2220 EVEN 
2221 007000 ENDMSG 
2222 007000 L10006: 
ety 007000 104423 TRAP C$MSG 
2225 007002 BGNMSG TAEM 
2226 007002 TAEM: : 
2227 007002 PRINTX @TAEMA,UNIT 
2228 007002 013746 002422 i MOV UNIT, -¢S 
2229 007006 012746 007102 r* MOV @TAEMA, - 
2230 007012 012746 000002 MOV @2,-(SP) 
2231 007016 010600 MOV SP RO 
2232 007020 104415 TRAP CSPNTX 


2233 007022 062706 000006 ADD 20, 5P 


GLOBAL. AREAS 
CZ2TSIC.PL1 


007026 
007026 
007032 
007036 
007042 
007044 


MACY11 30( 1046) 


09-APR-84 14;37 


012746 
O 


013746 
013746 
013746 
013746 
012746 
012746 
010600 
104415 
062706 


013746 
013746 
013746 


. 


002342 
007153 
000002 


051124 
052101 
052101 


09 - APR -84 


041501 
045522 
045522 


TAEMA;: 
TAEMB: 
TAEMC: 


10007: 


SKDAEM: : 


14:40 PAGE 586 
GLOBAL ERROR REPORT SECTION 


PRINTX 


PRINTX 


BGNMSG 
PRINTX 


PRINTX 


PRINTX 


PRINTX 


ES 


@TAEMB ,EXTRAC 


@TAEMC ,ACTRAC 


MSG 


BEX 

/BATRACK : SS9SSESAP 7654 321085 3SAUNIT: SD19N/ 
/@ATRK ACT EXP DATA: 8S48898N/ 
/SATRKSSSBAAC TSSBAAC TUAL SSSADATA: SSSBOBNO/ 
BEX 


SKDAEM 
@DAEM, UNIT 


@DAEMA 


@DAEME ,EXORDY ,ACORDY ,EX1LDTR,ACLOTR 


@DAEMC ,EXTRAC ,ACTRAC .EXDATA,ACDATA 


TRAP 


SEQ 0056 


EXTRAC le 


J$ JMP 
L10007-2 


C$MSG 


814,SP 


ACDATA, - 
EXDATA, - 
ACTRAC, - 


os 
rs 
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CZ2TSIC.PLL 09-APR-84 14:37 GLOBAL ERROR REPORT SECTION SEQ 0057 
2286 007402 013746 002342 MOV EXTRAC, - 
2287 007406 012746 007703 MOV @DAEMC, - 
2288 007412 012746 000005 MOV #5, -(SP) 
2289 007416 010600 MOV SP ,RO 
2290 007420 104415 TRAP CSPNTX 
2291 007422 062706 000014 ADD #14,SP 
2292 007426 PRINTX @DAEMD,EXTROD,ACTROD,EXODTR,ACODTR 
2293 007426 013746 002366 MOV ACOOTR, - 
2294 007432 013746 002350 MOV EXODTR, - 
2295 007436 013746 002364 MOV ACTROO, - 
2296 007442 013746 002346 MOV EXTROO, - 
2297 007446 012746 007765 MOV @DAEMD, - 
2298 007452 012746 000005 MOV @S,-(SP) 
2299 007456 010600 MOV SP ,RO 
2300 007460 104415 TRAP CSPNTX 
2301 007462 062706 000014 ADD #14,SP 
2302 007466 EXIT MSG 
2303 007466 000167 «WORD J$JMP 
2304 007470 000362 «WORD L10010-2 
2305 -NLIST BEX 

007472 051445 022471 032523 DAEM: -ASCIZ /#8S9SSSSAEXPECTEDSS 7SAACTUALSSSSAUNIT : SD19N/ 

007545 045 052101 040522 DAEMA: .ASCIZ /#ATRACK : SS8SAP765432108SSSAP 765432108N/ 

007614 040445 052517 050124 DAEMB: .ASCII /#AOUTPUT READY :8SSB898S5SB98N/ 

007650 040445 020061 051117 -ASCIZ /#A1 OR DEAD: 8S48898S5S698N/ 

007703 045 052101 040522 DAEMC: .ASCII /#ATRACK ACTIVE: #S889sS5SSB9SN/ 

007737 045 042101 052101 -ASCIZ /#ADATA:SS9SB9SSSSB9SN/ 

007765 045 052101 040522 DAEMD: .ASCII /#ATRACK DEAD: 8S3889NSSSB9SN/ 

010020 040445 020060 051117 icy a OR DEAD: 8S48898S5s889sN2/ 

oL 

2306 EVEN 
2307 010054 ENDOMSG 
2308 010054 L10010: 
tt 010054 104423 TRAP CSMSG 
2311 010056 BGNMSG ROMEM 
2312 010056 ROMEM: : 
2313 010056 PRINTX @ROMEMA,ROMLKI,EXROML ,ACROML ,UNIT 
2314 010056 013746 002422 MOV UNIT,-CS 
2315 010062 013746 002370 MOV ACROML , - 
2316 010066 013746 002352 MOV EXROML, - 
2317 010072 013746 002420 MOV ROMLKT, - 
2318 010076 012746 010122 MOV @ROMEMA, 
2319 010102 012746 000005 MOV #5, -(SP) 
2320 010106 010600 MOV SP RO 
2321 010110 104415 TRAP CSPNTX 
2322 010112 062706 000014 ADD #14,SP 
2323 010116 EXIT MSG 
2324 010116 000167 «WORD JSJMP 
2325 010120 000102 -WORD L1LO001L1-2 
2326 -NLIST BEX 

010122 040445 042101 051104 ROMEMA: .ASCII /s#AADDRESS =8S8048N/ 

010143 045 042501 050130 -ASCII /#AEXPECTED=s8038N/ 

010163 045 040501 052103 erie SE PARR ee 

Lh x 

2327 010224 EVEN 


2328 010224 , ENDMSG 


GS 
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CZTSIC.P11 09-APR-84 14:37 GLOBAL ERROR REPORT SECTION _ SEQ 0058 
2329 010224 L10011; 
caae 010224 104423 TRAP C$MSG 
2331 
2332 -NLIST BEX 
010226 040445 051524 051123 TERMA: ant — =SSS068S3SAUNIT: SD1SN/ 
Ll x 
tt} 010264 -EVEN 
cane ;SET CHAR ERR MSGS SCHER1 -SCHE TEMPO 
2337 010264 BGNMSG SCHER1 
2338 010264 SCHER1:: 
2339 010264 PRINTB #151180 
2340 010264 012746 005041 MOV #TS11680, 
2341 010270 012746 000001 MOV #1, -C(SP) 
2342 010274 010600 MOV SP ,RO 
2343 010276 104414 TRAP CSPNTB 
2344 010300 062706 000004 ADO #4,SP 
2345 010304 PRINTX @SCHERA 
2346 010304 012746 010330 MOV @SCHERA, 
2347 010310 012746 000001 MOV #1,-(SP) 
2348 010314 010600 Vv SP ,RO 
2349 010316 164415 TRAP CSPNTX 
2350 010320 062706 000004 ADD 04,SP 
2351 010324 EXIT MSG 
2352 010324 000167 -WORD J$JMP 
2353 010326 000064 «WORD 1L10012-2 
2354 -NLIST BEX 
010330 040445 051524 051123 SCHERA: are — NBA NOT SET ON COMD BEFORE SET CHAR ISSUEDSN/ 
Ll x 
2355 -EVEN 
2356 010414 ENOMSG 
2357 010414 L10012: 
Suse 010414 104423 TRAP CSMSG 
2360 010416 BGNMSG SCHER2 
2361 010416 SCHER2: : 
2362 010416 PRINTB #TS1180 
2363 010416 012746 005041 MOV #TS1160, 
2364 010422 012746 000001 MOV #1, -(SP) 
2365 010426 010600 SP ,RO 
2366 010430 104414 TRAP CSPNTB 
2367 010432 062706 000004 ADD 24 ,SP 
2368 010436 PRINTX &SCHERB 
2369 010436 012746 010462 MOV @SCHERB, 
2370 010442 012746 000001 MOV #1, -CSP) 
2371 010446 010600 MOV SP .RO 
2372 010450 104415 TRAP CSPNTX 
2373 010452 062706 000004 ADD 24,SP 
2374 010456 ExIT MSG 
2375 010456 000167 WORD = JSJMP 
2376 010460 000046 WORD L10013-2 
2377 -NLIST BEX 
010462 040445 051524 051123 SCHERB: PP — NBA NOT CLEARED BY SET CHARSN/ 
ol 4 


2378 010530 -EVEN 


GLOBAL AREAS 
CZ2TSIc.Pil 


010530 
010530 
010530 


010532 
010532 
010532 
010532 
010536 
010542 
010544 
010546 
0105S2 
010552 
010556 
010562 
010564 
010566 
010572 
010572 
010574 


010576 


010672 
010720 


010770 
010770 
010770 


MACY1LL 30( 1046) 09-APR- 
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104423 


012746 
012746 
010600 
104414 
062706 


012746 
012746 


012746 


010770 


104423 


005041 
010576 
000001 
000004 


051515 


010672 


010720 
000001 


000004 


040502 
047511 


020107 


020104 
051440 


84 


14:40 PAGE 
GLOBAL 


ERROR REP 


H5 


61 
ORT SECTION 


E 
L10013; 


8 
SCHERS:: 


SCHERC: 


L10014: 


SCHER4: : 


SCHERN: | 


SCHERD: 


L10015: 


PRINTB 


PRINTX 


EXIT 


»-NLIST 
-ASCIZ 
«LIST 
-EVEN 
ENOMSG 


BGNMSG 
PRINTB 


PRINTX 


SCHERS 
@TS1180 


@SCHERC 


MSG 


BEX 
/@AMSG PKT IN DOUBTS@N/ 
BEx 


SCHER4S 
@SCHERN 


@SCHERD 


MSG 


BEX 


/#ABAD M8967 SLOT 12sN/ 
/@AIO SEQ CROM PARITY ERROR TSSR FC=18N/ 


BEX 


TRAP 


TRAP 


TRAP 


SEQ 0059 


C$MSG 


#TS1180, 
#1, -C(SP) 
SPR 


RO 
CSPNTB 
@4,SP 


#SCHERC, 
#1, -(SP) 
SP 


J$JMP 
L10014-2 


CSMSG 


CSMSG 


GLOBAL AREAS 
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010772 
010772 
010772 
010772 
010776 
011002 
011004 
011006 
011012 
011012 
011016 
011022 
011024 
011026 
011032 
011032 
011034 


011036 
011122 


011252 
011274 


011342 
011342 
011342 


011344 
011344 


MACY11 30(1046) 09-APR-84 
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104423 


012746 
012746 
010600 
104414 
062706 


012746 
012746 
010600 
104415 
062706 


000167 
000070 


040445 
040445 


011342 


104423 


14:37 


011036 
00000 


011122 
000001 


000004 


051524 
042523 


011252 
000001 


000004 
011274 
000001 
000004 


034115 
044523 


030461 
044522 


033071 
047514 


:40 PAGE 62 
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SCHERS: : 


SCHERE : 
SCHERF ; 


L10016: 


SCHERE: : 


SCHERG: 
SCHERH: 


L10017: 


SCHER?:: 


PRINTB 


PRINTX 


EXIT 


-NLIST 
-ASCIZ 
-ASCIZ 
-LIST 
-EVEN 
ENOMSG 


BGNMSG 


PRINTB 


PRINTX 


BGNMSG 


[5 


SCHERS 
@SCHERE 


@SCHERF 


MSG 


BEX 


/@ATS11 BOARD OR SERIAL BUS CABLE OR M8965 SLOT 15sN/ 
/@ASERTAL BUS PARITY ERROR SPE OR BPE TSSR FC=2sN/ 


BEX 


SCHER6 
@SCHERG 


@SCHERH 


MSG 


BEX 

/@AM8966 SLOT 14¢N/ 

a PARITY ERROR SIP TSSR FC=2s8N/ 
x 


SCHER7 


TRAP 


TRAP 


SEQ 0060 


CsMSG 


@SCHERH, 
#1, -(SP) 
SP RO 
CSPNTX 
€4,SP 


JS IMP 
L10017-2 


CSMSG 


GLOBAL AREAS 
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011432 
011434 


011516 
011520 
011520 
011520 


011522 


011610 
011612 


011614 
011710 
011760 
012022 
012101 


MACYLL 30( 1046) 
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01270° 
021227 
001415 
011237 


013746 
012746 


104423 
011614 


014033 
177777 


040445 
051445 
040445 
040445 

045 


011434 
000001 
000004 
011522 
177777 
011516 
011516 
00000 


1 


000004 
000002 


051524 


011710 


09 -APR -84 63 
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051123 


011760 


013521 


032467 


14:40 PAGE 


SCHERI: 


PCHTAD: 
10020: 


PCHLTB: 


PCHOR: 

PCHDRA: 
PCHORB: 
PCHTSO: 
PCHTS1: 


J5 


SEQ 0061 


@SCHERT, 
#1, -(SP) 
SP RO 
CSPNTB 
94 ,SP 


oPCHLTB, 
CR2),417 
50003$ 
(R2),PCH 
PCHTAD, - 
#1, -(SP) 
RO 
CsPNTB 
#4 ,SP 
#2,R2 
50002$ 


JS JUMP 
L10020-2 


CSsMSG 


PRINTB #SCHERI 
MOV 
MOV 
MOV 
TRAP 
LET R2 := #PCHLTB _ 
MOV 
WHILE (R2) NE #177777 DO 
500023: 
CMP 
EQ 
LET PCHTAD := (R2) . 
Vv 
PRINTB PCHTAD ag 
MOV 
MOV 
MOV 
TRAP 
ADD 
LET R2 := R2 + #2 
ADD 
ENDDO 
BR 
50003$: 
EXIT MSG 
. WORD 
. WORD 
-NLIST BEX 
-ASCIZ /#ATSSR FC=2 FATAL MICRO ERR HALTS PC=1750-17778N2/ 
LIST BEX 
“EVEN 
-WORD O 
ENDMSG 
TRAP 
-WORD PCHDR,PCHDRA,PCHORB 
-WORD PCHTSO,PCHTS51,PCHTS2 
. WORD PCHTS3,PCHT5S4 ,PCHTSS 
-WORD PCHT56,PCHTS7,PCHT60 
-WORD PCHT61,PCHT62,PCHT63 
. WORD PCHT64 ,PCHT65, PCHT66 
.» WORD PCHT67,PCHT70,PCHT71 
-WORD PCHT72,PCHT73,PCHT74 
. WORD PCHT75,PCH75A,PCHT 76,PCHT77 
»-WORD ENDTBL 
»NLIST BEX 
-ASCIZ /s#APC ERROR HALTS BAD sees Yin M8962 .M8963 M8964 ,0R M896 7sN ‘ 
-ASCIZ /#S23S8ASLOT: 8 1l 12sN/ 
-ASCIZ /A PCUS1 PEACOMMENTSS1 SEAMODULEaN2/ 
-ASCIZ /#A1750 OPERATION IO PROBLEMSS148AM8967, TSLISN 
ASCIZ /#A1751 SPURIOUS ATINS#S228AM896 30N- 


KS 
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012143 045 030501 032467 PCHTS2: .ASCIZ /#A1752 STK PAR ERR ON OVERFLOWSS128AM896 58N/ 

012217 045 030501 032467 PCHTSS: .ASCIZ /#A1753 STK NOT EMPTY AT END OF TASK M896 38N/ 

012301 045 030501 032467 PCHTS4: .ASCIZ /#A1754 STK PTR REG WON'T HOLD DATA M896 38N/ 

012363 045 030501 032467 PCHTSS: .ASCIZ /#A1755 UTSTM - BRANCHSS21SAM89628N/ 

012426 040445 033461 033065 PCHTS6: .ASCIZ /#A1756 UTSTM - ZBITSS2358AM89628N/ 

012467 045 030501 032467 PCHTS7: .ASCIZ /#A1757 UTSTM - NBITSS23SAM8962RN/ 

012530 040445 033461 030066 PCHT60: .ASCIZ /#A1760 UTSTM - NOT Z BITSS18SAM8962EN/ 

012576 040445 033461 030466 PCHT61: .ASCIZ /#A1761 UTSTM - C BITSS228AM8962mN/ 

012640 040445 033461 031066 PCHT62: .ASCIZ /#A1762 UTSTM - PCB LO TEST#S16SAM8962aN/ 

012710 040445 033461 031466 PCHT63: .ASCIZ /#A1763 UTSTM - INTERNAL REG ERRORSS9SAM89628N/ 

012766 040445 033461 032066 PCHT64: .ASCIZ /#A1764 UTSTM - INTERNAL REG ERRORSS9SAM89628N/ 

013044 040445 033461 032466 PCHT6S: .ASCIZ /#A1765 UTSTM - ADD TESTSS19SAM8962eN/ 

013111 045 030501 033067 PCHT66: .ASCIZ /#A1766 UTSTM - A SUBTESTSS18SAM8962mN/ 

013157 045 030501 033067 PCHT67: .ASCIZ /#A1767 UTSTM - BSUB TESTSS18SAM8962=5N/ 

013225 045 030501 033467 PCHT70: ASCIZ /#A1770 UTSTM - SHIFT LR TESTSS14SAM8962mN/ 

013277 045 030501 033467 PCHT71: .ASCIZ /#A1771 UTSTM - LOGICAL: AND,OR,XOR,NAND M8962mN/ 

013361 045 030501 033467 PCHT72: .ASCIZ /#A1772 STAKM - STACK PARITY TESTSS108AM8963eN/ 

013437 045 030501 033467 PCHT73: .ASCIZ /#A1773 STAKM - STACK UNDER-OVERFLOW M896 36N/ 

013521 045 030501 033467 PCHT74: .ASCIZ /#A1774 STAKM - STACK DATA TESTS#S12SAM89638N/ 

013575 045 030501 033467 PCHT7S: .ASCIZ /#A1775 STAKM - CAPSTAN BUS DATA TEST M8963 ,G159sN/ 

013664 040445 044103 041505 PCH7SA: .ASCIZ /#ACHECK TACH PHASE ,DECEL AND SPEED ADJUSTS ON G159sN/ 

013751 045 030501 033467 PCHT76: .ASCIZ /#A1776 STAKM - CBUS BRANCH TEST M896 36N/ 

014033 045 030501 033467 PCHT77: .ASCIZ /#A1777 STAKM - SIMULATED LIMIT ATTN TEST M8963=N/ 

-LIST BEX 

2528 014116 EVEN 
2529 014116 BGNMSG SCHERO 
2536 014116 SCHERO: : 
2531 014116 PRINTB #SCHERL 
2532 014116 012746 014162 MOV @SCHERL, 
2533 014122 012746 000001 MOV #1, -(SP) 
2534 014126 010600 MOV SP RO 
2535 014130 104414 TRAP CSPNTB 
2536 014132 062706 000004 ADD 24 ,SP 
2537 014136 PRINTX #SCHERM 
2538 014136 012746 014205 MOV @SCHERM, 
2539 014142 012746 000001 MOV #1, -(SP) 
2540 014146 010600 MOV SP ,RO 
2541 014150 104415 TRAP CSPNTX 
2542 014152 062706 000004 ADD o4,SP 
2543 014156 ExIT MSG 
2544 014156 000167 «WORD JSJMP 
2545 014160 000042 «WORD L10021-2 
2546 -NLIST BEX 

014162 040445 041501 046040 SCHERL: .ASCIZ /#AAC LOW AT TSO48N/ 

014205 045 052101 051523 SCHERM: .ASCIZ /#ATSSR FC=38N/ 

-LIST BEX 

2547 014224 .EVEN 
2548 014224 ENOMSG 
2549 014224 L10021: 
2550 014224 104423 TRAP CSMSG 
2551 
2552 
2553 014226 BGNMSG ROMLER 
2554 014226 ROMLER: : 


GLOBAL AREAS 
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014226 
014226 
014232 
014236 
014240 
014242 
014246 
014246 
014246 


014312 


014314 
014370 


014452 
014452 
014452 


012746 
012746 


012746 
012746 
010600 
104414 
062706 


012746 


104423 


005064 
000001 


000004 


014314 
000001 


000004 


014370 


000001 


000004 


047525 
047503 
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020113 
042504 
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10022: 


MICERR: : 


MICERA: 


MICERB: . 


L10023: 


65 


PRINTS 


ENDMSG 


BGNMSG 


PRINTB 


PRINTX 


5 


oF MTCTR 


MICERR 


@MICERA 


omMICERB 


MSG 


BEX 


/@AUOK LIGHT OFF ,XTAT3=OP PANEL =ERROR CODESN/ 


/SACODESS LOSAERRORSS2SSAMODULE( SLOT) SCOPE LOOPsN2/ 


BEX 


TRAP 


SEQ 0063 


OFMTCTR, 


csMSG 


GLOBAL, 
cZTSIc 


AREAS 


-Pll 


014454 
014454 
014454 
014454 
014462 
014462 
014462 


014464 
014464 
014464 
014464 
014472 
014472 
014472 


014474 
014474 
014474 
014474 
014502 
014502 
014502 


014512 
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112737 


000002 


112737 


000002 


112737 


000002 


112737 


000002 


000001 


000001 


000001 


000001 


002437 


002437 


002437 


002437 


M5 
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GLOBAL ERROR REPORT SECTION 


-SBTTL GLOBAL SUBROUTINES SECTION 


$e 


; THE GLOBAL SUBROUTINES SECTION tpg THE SUBROUTINES 


; THAT ARE USED IN MORE THAN ONE T 


3 MODULES TO HANDLE TSO04 INTERRUPTS. 


BGNSRV TS4INO 
"LET CTLFLG :8= 
ENDSRV 


TS4INO 


L10024; 


BGNSRV TS4IN1 
TS4INL:: 
LET CTLFLG :B= 


ENDSRV 
L10025: 


BGNSRV TS4IN2 
TS4IN2:: 


LET CTLFLG :B=- 


ENDSRV 
L10026: 


BGNSRV TS4IN3 
TS4IN3:: 
LET CTLFLG :B= 


ENDSRV 
10027: 


#1 


#1 


#1 


#1 


sDEVICE 0 
sSET INTERRUPT OCCURRED 


sDEVICE 1. 
;SET INTERRUPT OCCURRED 


sDEVICE 2. 
;SET INTERRUPT OCCURRED 


sDEVICE 3. 
sSET INTERRUPT OCCURRED 


FLAG. 


MOVB 


RTI 


FLAG. 


MOVB 


RTI 


FLAG. 


MOVB 


RTI 


FLAG. 


MOVB 


RTI 


SEQ 0064 


#1.CTLFL 


#1,CTLFL 


#1,CTLFL 


#1,CTLFL 


NS 
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2631 ; SUBROUTINE TO WAIT UP TO 1 MINUTE FOR THE SSR BIT 
aes ; TO SET - REPORT AN ERROR IF IT DOESN’ T SET AND ATTEMPT TO DROP UNIT 
26 
2634 014514 005037 002426 WT4SSR:: CLR TIME INIT TIMEOUT COUNTER. 
2635 014520 1$: BRE AK :GO TO SUPERVISOR. 
2636 014520 104422 TRAP CsBRK 
2637 014522 105777 165476 TST8 aTssr sREADY? 
2638 014526 100432 BMI 2s ;8R IF SO 
2639 014530 005337 002426 DEC TIME ;WAIT. 
2640 014534 001371 BNE is 1008 WAITING? BR IF NOT. 
2641 014536 017737 165462 002434 MOV aTSSR, TEMP2 ean TSSR 
2642 014544 012701 014616 MOV OTERMTB,R1 
2643 014550 ERROF 2,SSROFF,LONMSG ;IF SO, REPORT AN ERR IF SSR NOT res Yer. 
2644 014550 104455 CSEROF 
2645 014552 000002 TNORO 2 
2646 014554 002570 «WORD SSROFF 
2647 014556 006060 -WORD LONMSG 
2648 014560 PRINTX OTERMA, TEMP2,UNIT sPRINT TSSR CONTENTS 
2649 014560 013746 002422 MOV UNIT, -¢€S 
2650 014564 013746 002434 MOV TEMP2, -( 
2651 014570 012746 010226 MOV @TERMA, - 
2652 014574 012746 000003 MOV @3, -(SP) 
2653 014600 010600 MOV SP RO 
2654 014602 104415 TRAP CSPNTX 
2655 014604 062706 000010 ADD #10,S5P 
2656 014610 CALL DROPU ATTEMPT TO DROP UNIT 
2657 014610 004737 014654 JSR PC ,OROPU 
2658 ;IF DROPPED PROG ABORTS CURRENT PASS 
2659 ;IF INHIBIT DROP FLAG SET BY OPERATOR (IDU) 
2660 ; THEN PROGRAM CONTINUES 
2661 014614 000207 2s: RTS PC ;RETURN. 
2663 014616 003632 003653 003716 TERMTB: .WORD TERMO1, TERMO2, TERMO3 
2664 014624 003777 004060 -WORD TERMOS, TERMO6 
2665 014630 004157 004233 004310 -WORD TERMO7, TERM1O, TERM11 
2666 014636 004413 004500 004551 -WORD TERM12,TERM13, TERM14 
2667 014644 004622 004707 005000 -WORD TERM15, TERM16, TERM17 
ease 014652 177777 WORD ENOTBL 
te ; SUBR TO ATTEMPT TO DROP A UNIT FLAGGED WITH A DEVICE FATAL ERROR 
2672 014654 DROPU:: DODU LUNIT sEXECUTE DROP MACRO 
2673 014654 013700 027712 MOV LUNIT,RO 
2674 014660 104451 TRAP CsD00u 
2675 014662 GPHARD LUNIT, TIME ;TS UNIT DROPPED 
2676 014662 013700 027712 MOV LUNIT,RO 
2677 014666 104442 TRAP CSCO 
2678 014670 010037 002426 MOV 0, TIME 
2679 014674 BCOMPLETE 18 ;NO RETURN TO CALLER TO PROCEED 
2680 014674 103401 Bcs 1s 
2681 014676 DOCLN YES EXEC CEAN-UP CODE TO START NEW PASS 
2682 014676 104444 TRAP CSOCLN 
2683 014700 000207 1$: RTS PC 
2654 
2685 


2686 3 SUBR TO WAIT AN EXTRA LONG TIME FOR THE SSR BIT TO SET 


GLOBAL 
C2TsIc 


AREAS 


Pil 


014702 
014702 
014702 
014710 
014712 
014712 
014716 
014716 
014724 
014726 
014726 
014734 
014736 
014736 
014740 
014740 
014740 
014740 
014744 
014746 
014752 
014754 
014760 
014762 
014766 
014770 
014770 
014772 
014772 
014772 
014772 


012737 
000402 


005237 


023727 
003023 


032777 
001401 


000416 


012727 
000000 
013727 
000000 


005367 
001375 
005367 
001367 


104422 


000747 


023727 
003511 


012746 
012746 
010600 
104417 
062706 


012737 
000402 
005237 


023727 
007023 


000001 


002426 
002426 


000200 


000372 
002116 
177772 
177756 


002426 


015230 
000001 
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002426 


000027 


165270 


000027 


002426 


000160 


Bo 
14:40 PAGE 68 
OBAL SUBROUTINES SECTION 


NEEDED AFTER AN INIT IS SENT TO TS11 TO WAIT FOR LOAD SEQ 


3 
: TO COMPLETE. 
i TIME IS EXCEEDED. 


WAITSR: :BEGIN COUNTER1L 
INCR TIME FROM #1 TO 023. Br O1 


IF @TS.SSR SETIN @TSSR THEN 


LEAVE COUNTER1 
ELSE 
DELAY 250. 


BREAK 
ENDIF 
ENO INC 


END COUNTER1L 
IF TIME GT 023. THEN 


PRINTF OWAITMR 


BEGIN COUNTER? 
INCR TIME FROM @1 TO 0160 BY 1 


REPORT ERROR AND DROP UNIT IF EXTRA 


5000635: 
500055: 


500108: 


5SOOLSS; 
SO014$; 


SEQ 0066 


o1, TIME 
50005 $ 


TIME 
TIME 923 
5000 7% 
@TS.SSR, 
500108 
50004$ 


aie cab 
LsOLr,(P 
ie) 


TIME 923 
50012$ 


OWAILTMR, 
#1, -(€ SP) 
SP RO 
CSPNTF 
o4,SP 


91,7 IME 
S0014$ 
TIME 


TIME .¢16 
SOO Los 


015226 


032777 
001401 


000416 


012727 
000000 
013727 
000000 
005367 
001575 
005367 
001367 


104422 


000747 


023727 
003430 


017737 
012701 
104455 


000002 
002570 
006060 


013746 


000200 


000310 
002116 
177772 
177756 


002426 


165072 
014616 
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165146 


000160 


0024 34 


:40 
SUBR' 


P 
‘OU 


Co 


Ofines SECTION 


IF @TS,.SSR SETIN @TSSR THEN 


LEAVE COUNTER? 


ELSE 


DELAY 200. 


BREAK 


ENDIF 
ENOINC 


END COUNTER? 


IF TIME GT 0160 THEN 


LET TEMP2 :* @TSSR 


LET Ri 


ERROF 2,SSROFF ,LONMSG 


PRINTX @TERMA, TEMP2,UNIT 


:* @TERMTB 


JSR PC ,DROPU 


ELSE 


PRINTF @CRMSG 


ENDIF 


500178: 


500203: 


500168: 
500138: 


SO0lLS: 


SEQ 0067 
@T3.S5SR, 
50017$% 
50015% 


» aatteigest 
LsOLr,(P 
Oo 

-6(PC) 


<4 
-22°°C) 
--20 


CsBRY 


SOO1S$ 


TIME ,@16 
500218 


aTssr, TE 
@reERMTB, 
CSEROF 
2 


SSROFF 
LONMSG 


UNIT, -C€S 
TEMP2, -¢ 
O@TERMA, - 
@3,-(SP) 
SP RO 
CSPNTX 
#10,SP 


AREAS 
Pil 


015252 


040445 
047111 
020122 
027056 


os ARB STEIBI? 0-48 Bt 


040527 
020107 
042122 

000 


Do 


Berbul ine? section 


WAITMR: 


ENDIF 
RTS PC 
-ASCIZ 


-EVEN 


/SNSAWAITING FOR RDY.../ 


SEQ 0065 


GLOBAL. 
C2TsIc 


AREAS 
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000240 
000240 
000240 
000240 


032737 
001501 


012746 


012737 
000402 


005237 


023727 
003031 


012737 
012777 
012727 


104422 


032737 
001001 


000401 


000741 


023727 
003412 


000001 


002426 
002426 


100017 
002230 
000310 
002116 
177772 
177756 


000200 


002426 


002266 


002426 


000160 


002230 
164634 


002266 


000160 


14:40 PAGE 71 


E6 


GLOBAL SUBROUTINES SECTION 


: SUBR TO WAIT FOR TAPE MOTION TO CEASE WHEN AN INIT TO THE 


3 ON-LINE TS11 INITIATED A LOAD SEQUENCE. 
WAITMT:: NOP 

NOP 

NOP 


NOP 
IF @MOT SETIN XSTATO THEN 


PRINTF @WAITMS 


BEGIN COUNTER 


INCR TIME FROM 01 TO 0160 BY @1 


LET CMOPKT := GES 


LET @TS0B 


DELAY 200. 


BReak 


IF @MOT NOTSETIN XSTATO THEN 


:= @CMDPKT 


LEAVE COUNTER 


ENDIF 


ENDINC 


END COUNTER 
IF TIME GT #160 THEN 


500263: 
500255: 


500308: 


500275: 
500283; 


CMP 
BLE 


SEQ 0069 


OmMOT ,xST 
50023$ 


@WAITMS, 
#1, -(SP) 


TIME , 216 
50027$ 


#GES.CMD 
eCMDPKT, 
#200. .¢P 
Csouy.cP 
Seer) 

4 


"22¢PC) 
. -20 


CSBRK 


@MOT,XST 
500308 


500248 


50026 $ 


TIME ,#1o 
500318 


GLOBAL 
CZTsic 


AREAS 
-Pll 
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012746 
012746 


015542 
000001 


000004 


005765 


F6 
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WAITMS: 


WAITEM: 


GLOBAL SUBROUTINES SECTION 


PRINTS @WAITEM 


MOV 
MOV 
MOV 
a 
DOCLN 
TRAP 
ELSE 
BR 
50031$: 
PRINTF #CRMSG 
MOV 
MOV 
MOV 
TRAP 
ADD 
ENDIF 
50032$: 
ENDIF 
500238: 
RTS PC 
-ASCIZ /#AWAITING FOR TAPE TO STOP.../ 


-ASCII /#AWAIT TOO LONGSN/ 


-ASCIZ /#ASWITCH UNIT OFF-LINE, RESTART DIAGSN/ 


-EVEN 


G6 
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3S/R TO GENERATE AN EVEN OR ODD PAR BIT. ENTER WITH R1 CONTAINING THE @ 
2910 sFOR WHICH YOU WISH TO HAVE PAR GEN. EXIT WITH THE PARITY BIT IN THE 
443 sLOW ORDER BIT OF TEMPO. CLOBBERREDS TEMPO 
2913 015632 012737 000001 002430 ODDPAR:: MOV #1, TEMPO sINIT THIS REG FOR ADD PAR. 
2914 015640 000137 015650 JMP PARGEN + CONT INUE 
2915 015644 005037 002430 EVNPAR: CLR TEMPO sINIT THIS REG FOR EVEN PAR. 
2916 015650 012737 000020 002434 PARGEN: MOV #20, TEMP2 sINIT COUNTER 
2917 015656 005337 002434 1$: DEC TEMP2 sOONE ALL BITS? 
2918 015662 100405 BMI es sBR IF SO 
2919 015664 006001 ROR R1 sROTATE THE DATA. 
2920 015666 103773 BCS 1$ 
2921 015670 005237 002430 INC TEMPO 
3} 015674 000770 BR 1$ 300 IT AGAIN 
2924 015676 006001 2s: ROR R1 sROTATE ONCE MORE TO GET ORIG CONTENTS 
2925 015700 042737 177776 002430 BIC #177776, TEMPO s;CLR ALL BUT LO ORDER BIT IN TEMPO. 
2926 sLO ORDER BIT IS THE PAR BIT 
2927 sRETURNED TO THE CALLING ROUTINE. 
2928 015706 000241 CLC sCLR CARRY BIT 
2929 015710 000207 RTS PC sRE TURN 
2930 
2931 
2932 
2933 
2934 3S/R TO LOAD THE DIABLK WITH R3 (DATA) BITS AND R4 (CONTROL) BITS WITH 
2935 sCORRECT PARITY. 
2936 8 INPUTS: R3 DATA, R4 CONTROL, RS DIABLK INDEX. 
2937 ; OUTPUTS: R3 DATA CUNCHANGED), R4 CONTROL (WITH GOOD PARITY), RS 
2938 8 UPDATED OIABLK INDEX. 
ccs ; CALLS: ODDPAR SUBROUTINE 
2941 015712 110345 TALOAD:: MOVB R3,-(RS) sLOAD DATA 
2942 015714 005703 TST R3 sALL O'S DATA? 
2943 015716 001403 BEQ i$ ;BR IF SO 
2944 015720 052704 000020 BIS #IS.DAP,R4 sIF NOT, SET THE PARITY DATA ALSO IN R4 
ieee 015724 000402 BR 3$ CONTINUE. 
2947 015726 042704 000020 1$ BIC @IS.DAP,R4 ;CLR THE PAR DATA BIT IN CNTRL WORD. 
2948 015732 010401 3%; MOV R4,R1 sSAVE IT. 
2949 015734 004737 015632 JSR PC ,ODDPAR sCALC CONTROL WORD PARITY. 
2950 015740 005737 002430 TST TEMPO sIS PARITY BIT SET? 
2951 015744 001402 BEQ es :BR IF NOT 
2952 015746 052704 000200 BIS @IS.PAR,R4 :IF SO, SET THE PAR BIT. 
2953 015752 110445 2s: MOVB R4, -(R5) sLOAD THE CONTROL WORD 
2954 015754 000207 RTS PC sRETURN, 


H6 
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CZTSIc.P11 09-APR-84 14:37 GLOBAL SUBROUTINES SECTION SEQ 0072 
2955 3S/R TO COMPLETE FILLING THE DIABLK WITH ENTRIES WHOSE FORMAT THE TS04 
S983 sRECOGNIZES. UNUSED DIABLK LOCATIONS TO CONTAIN A TSO4 RTS COMMAND. 
2958 015756 020527 002317 FIXDIA:: CMP RS, @DIABLK +1 sARE WE ON DIABLK ODD BOUNDARY? 
2959 015762 001406 BEQ 1$ ;BR IF SO 
2960 015764 100407 BMI es sARE WE ON DIABLK EVEN BOUNDARY? 
2961 iBR IF SO-WE’RE DONE. 
2%2 015766 112745 000033 MOvB @POPJLO, -CRS) sLOAD TSO4 
2963 015772 112745 000000 MOVB @POPJHI, -CRS) sRTS COMMAND. 
2964 015776 000767 BR FIXDIA sREPEAT. 
2965 
2966 
2967 016000 112745 177777 1$; MOVB #-1,-(RS) sMUST END ON AN EVEN BOUNDARY. 
2968 016004 000207 2s; RTS PC sRETURN. 
2969 
2970 
2971 
2972 3S/R TO SETUP THE TSO4 COMMAND PACVET AND INITIATE EXECUTION OF THE DIA 
2973 3; COMMAND. 
core : CALLS:: WT4SSR SUBROUTINE. 
2976 016006 004737 014514 DIAEXE:: JSR PC,WT4SSR ;SEE IF SSR IS SET. SHOULD BE 
2977 016012 004737 016056 JSR PC, INITM sINITIALIZE THE MESSAGE PACKET. 
2978 016016 012777 002250 164170 MOV @DIAPKT ,aTSOB sINITIATE EXECUTION 
2979 016024 004737 014514 JSR PC,WT4SSR sWAIT FOR SSR TO SET 


2980 016030 000207 RTS PC 


GLOBAL AREAS 
CZTSICc.P11 


016102 
016102 


MACY1L1 30( 1046) 
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004737 
004737 
012777 
004737 
000207 


005001 
S82 
012761 
062701 
000767 
000207 


014702 
016056 
002240 
014702 


000016 


177777 
000002 


T6 
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164144 


002260 


GLOBAL SUBROUTINES SECTION SEQ 0073 
3S/R TO SETUP THE COMMAND PACKET TO DO AN SCH COMMAND AND ISSUE THE 
3; COMMAND. 
’ CALLS:: WT4SSR SUBROUTINE. 
SCHEXE:: JSR PC,WAITSR sWAIT FOR SSR BIT TO SET. 
JSR PC, INITM s INITIALIZE THE MESSAGE PACKET. 
MOV @SCHPKT ,aTSDB s INITIATE EXECUTION. 
JSR PC,WAITSR sWAIT FOR SSR. 
RTS PC sRETURN. 


whe TO INITIALIZE THE —_— PACKET WITH ALL ONES. 
REGISTERS USED: 


INITM: LET R1 :* 00 ;CLEAR LOCATION ouneute. . a 
L 
WHILE R1 NE @MSGEXT DO sWHILE THERE wai om | LOCATIONS: 
$: 
CMP R1, OMSGE 
BEG 50034$ 
LET MSGPKT(R1) := @-1 s INIT ONE LOCATION IN MSG PACTET, 
MOV @-1,MSGP 
LET RL :* RL + a2 sUPDATE COUNTER 
ADD 92,81 
ENDDO sEND OF INIT LOOP. 
BR 50033$ 


500343; 
RTS PC sRETURN. 


GLOBAL. 
czTsic 


ARE AS 
Pil 


016104 
016106 
016110 
016112 
016114 
016120 


016122 
016126 


016130 
016136 
016136 
016142 
016146 
016150 
016156 


016160 
016166 
016174 
016202 
016204 
016210 
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113737 


113702 
032702 


177577 


000200 


002267 
002274 
000004 


000400 


000400 
177000 
002342 


002436 


J6 
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002360 


002360 


002360 
002360 
002360 


GLOBAL SUBROUTINES SECTION SEG 0074 


:S/R TO SHIFT BYTE A 1 IN A FIELD OF O'S. WHEN WE'RE THROUGH 
sDOING THAT, SHIFT BYTE A O IN A FIELD OF 1’°S. 


; INPUTS: R4<«DATA TO SHIFT. 
j OuTPUTS: R4=SHIFTED DATA. 
SHWRAP:: ASR R4 sSHIFT THE DATA. 
TSTB R4 sSHIFTING A 1 OR A 0? 
BMI 1$ sBR IF SHIFTING A O. 
BNE es sDONE SHIFTING A 1? BR IF NOT. 
MOV @177577,R4 sIF SO, SETUP TO SHIFT O IN FIELD OF 1°5 
BR 2s sCONTINUE. 
1$: BIS #200 ,R4 ;SET THE MSB. 
2s: RTS PC sRETURN. 


3S/R 10 CHECK FOR TRACK ACTIVE ERRORS. 
: 


3 OUTPUTS: ACTRAC CONTAINS THE ACTUAL TRACK ACTIVE DATA IN BITS O THRU 8 
TKACER:: MOVB MSGPKT+C18$TA,ACTRAC sGET ACTUAL STATE OF ACTIVE BITS FOR CHA 
LET R2 :B= MSGPKT+PRCHST sGET THE TRK ACT DATA FOR CHAN 9 
MOVB MSGPKT -P 
BIT @CH9. TA,R2 sIS IT SET? 
BEQ 1% ;BR IF NOT 
BIS #BIT8,ACTRAC sIf SO, SET THE APPROPRIATE BIT IN “ACTYU 
BR 3$ 3; CONTINUE. 
L$: BIC @B ITS, ACTRAC sCLEAR THE BIT IN “ACTUAL” REG. 
3%: BIC #177000, ACTRAC :CLR GARBAGE. 
CMP EXTRAC ,AC TRAC sEXPECTED & ACTUAL DATA IDENTICAL? 
BEQ es :BR IF SO. 
INCE ERRFLG sSET THE ERR FLAG. 
28: RTS PC sRETURN. 


K6 
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3049 ;COMMON S/R USED BY THE PE DATA TESTS TO BUILD THE DIABLK 
3050 :IN CORE. 
3051 3 
3052 8 INPUTS: 
3053 3 R2 = PREAMBLE DATA. 
fess : R3 = BYTE 1 DATA. 
3056 016212 004737 016240 DATBLD:: JSR PC,PEINIT ;GO SET THE WRAP TASK ADDR IN DIABLD 
3057 sAND INIT DIABLK INDEX. 
3058 016216 112745 000012 MOVB oFC .DATIFC. VCO, -C(RS) iSET DATA & vCO MODE IN FMT CNTRL. 
3059 016222 010304 MOV R3,R4 ;SETUP SECOND BYTE OF DATA. 
3060 016224 005104 COM R4 sCOMPLEMENT THE BYTE 2 DATA. 
3061 016226 042704 177000 BIC #177000 ,R4 sCLR GARBAGE BITS. 
3062 016232 004737 016262 JSR PC,PEDATA ;LOAD THE PREAMBLE AND THE 2 DATA BrTES 
3063 ;IN OIABLK 
3064 016236 000207 RTS PC sRETURN. 
3065 
3066 
3067 
3068 :S/R TO LOAD THE DIABLK WITH THE TSO4 WRAP TASK ADDRESS 
+44 ‘Oe SETUP THE READ CONTROL WORD (RDOCTLO) FOR MAINTENANCE MODE . 
3071 VIMPLICIT INPUTS: DIABLK, DIAEXT, WRPLO, WRPHI 
93 ;OUTPUTS: RS=DIABLK INDEX. 
3074 016240 012705 002336 PEINIT:: MOV @DIABLK+DIAEXT,RS ;SAVE ADR OF LAST WORD IN DOIABLK 
3075 3;SO WE CAN FILL DIABLK IN REVERSE ORDER. 
3076 016244 LET -(RS) :B= @WRPLO ;LOAD THE NEW WRAP TASK ADDR LO 
3077 016244 112745 000005 MOVB @WRPLO, - 
3078 016250 112745 000200 MOVB OWRPHI, -( RS) ;LOAD WRAP TASK ADOR HI. 
3079 016254 112745 000100 MOVB @RD.MAI, -CRS) ;SET MAINT MODE IN ROCTLO. 
Soot 016260 000207 RTS PC 


GLOBAL 
C2TsIc 


AREAS 


Pil 


010237 
004737 


013737 
005137 
042737 
013737 
012737 
010337 
043737 
013737 
050337 
005103 
013737 
050337 
005103 
042737 
000207 
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14:40 P 


78 


L6 


AGE 
OBAL SUBROUTINES SECTION 


SEQ 0076 


3S/R TO LOAD THE OIABLK WiTH THE ALL 1'S PREAMBLE CHARACTER AND 2 BYTES 


:OF DATA AND CONTROL. 


IT ALSO LOADS THE EXPECTED UNDESKEWED DATA IN THE 


sFORMATTER AND WRITE CONTROL REGISTERS. 
INPUTS: R2=PREAMBLE ALL 1‘S CHARACTER, 


PEDATA: : 


4$: 


R3*1ST BYTE OF DATA 
R4*2ND BYTE OF DATA 
CALLS: PELOAD SUBROUTINE 
MOV R2, TEMP1 sSETUP TO LOAD DIABLK PREAMBLE 
JSR PC .PELOAD 300 IT 
MOV R3, TEMP1 sSETUP TO LOAD DIABLK € 1ST DATA BYTE 
JSR PC ,PELOAD 300 IT 
MOV R4,TEMP1 sSETUP TO LOAD DIABLK WITH 2ND DATA BrTE 
JSR PC ,PELOAD :00 IT 
sLOAD THE EXPECTED RESULTS. 
MOV OTKION,EXTRAC sIDENTIFY DEAD TRACKS. 
COM EXTRAC sALL TRACKS NOT DEAD ARE ACTIVE. 
BIC #177000,EXTRAC ;CLR GARBAGE. 
MOV OTKIDON,EXTROD s TRACKS DEAD DEFINED IN OTKION REG. 
MOV @777,EXORDY sOUTPUT READY HI ON ALL TRACKS. 
MOV R3,EXDATA sEXPECTED DATA INFO (NOT SO FOR SKEW TEST) 
BIC DTKION,EXDATA sZERO THE DATA CORRESPONDING TO THE DEAD TRACKS. 
MOV OTKION,EX10TR sEXPECTED ONES OR DEAD TRK INFO. 
BIS R3,Ex10TR 
COM R3 sCOMPLEMENT DATA. 
MOV DTKION,EXODTR sEXPECTED O OR DEAD TRK INFO. 
BIS R3,EXODTR 
COM R3 sRESTORE R3. 
BIC #177000,EXODTR ;CLR GARBAGE. 
RTS PC RETURN 


GLOBAL AREAS 
CZTSIc.Pil 


016420 
016424 
016430 
016432 
016436 
016440 
016446 
016450 
016454 
016460 
016464 
016466 


016472 
016474 
016500 
016502 
016506 
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012701 


001402 
052701 


110145 
005737 


000044 
002432 


002432 
000400 
000020 
015632 
002430 


000200 


002432 
002416 
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002432 


GL 


M6 


14:40 PAGE 79 
OBAL SUBROUTINES SECTION SEQ 0077 
3S/R TO LOAD CONTENTS OF TEMP1 INTO THE DIABLK BY GENERATING THE TwO 
;BIT CELLS OF DATA AND CONTROL. THE ROUTINE ALSO LOADS DATA TO SIMULATE 
;DEAD TRACKS. 
3 
F INPUT: TEMP1=DATA TO LOAD. 
; RS=DIABLK INDEX. 
Fy OTKION=DEAD TRACK IDEN REG. 1-DEAD; O-LIVE. 
a 
;CLOBBERS TEMPO,R1, TEMP1 
; 
Hy OUTPUT: UPDATED DIABLK DATA 
H UPDATED DIABLK INDEX 
3 
sNOTE THAT A LOGICAL “1” IS SENT TO THE TSO4 AS A 1 TO O TRANSITION. 
;sLIKEWISE, THE TSO4 INTERPRETS A O TO 1 TRANSITION AS A LOGICAL O. 
; THEREFORE, A LOGICAL 1 HAS A 1 BIT CELL FOLLOWED BY A O BIT CELL. AND 
;LOGICAL O CONSISTS OF AO BIT CELL FOLLOWED BY Al GIT CELL. THE FIRST 
ones att Ca. rons LOADS THE FIRST BIT CELL, WHILE THE SECOND PASS 
3L 
;DEAD TRACK BIT CELLS ARE EITHER BOTH O OR BOTH 1. (NO TRANSITION. ) 
PELOAD:: MOV #IS.NRZ!IS.WRF,R1 ; INIT CONTROL WORD STORAGE REG 
1$: MOVB TEMP1, -CRS) ;LOAD DATA WORD (BIT CELL) 
SWAB R1 ;LOAD THE 
BISB TEMP1,R1 sDATA WORD IN R1 ALSO TO 
SWAB R1 sGENERATE PARITY. 
BIT OBITS, TEMP1 ;WHAT ABOUT PARITY TRACK. SET? 
BEQ es ;6R IF NOT 
BIS #IS.DAP,R1 ;IF SO, SET THE BIT IN THE CNTRL WORD. 
2s: JSR PC ,ODDPAR sCALCULATE ODD PARITY. RESULT IN TEMPO BIT 1 
TST TEMPO PARITY BIT SET? 
BEQ 3$ ;B6R IF NOT 
BIS #IS.PAR,R1 ;IF SO SET PARITY BIT FOR BOTH THE 
;DATA AND CONTROL WORD. 
3$: MOVB R1, -CRS) ;LOAD THE CNTRL WORD (BIT CELL) 
TST TEMP1 ;DONE WITH PASS 2? 
BMI 4$ ;BR IF SO 
TST OTKION ;LOOKING FOR ANY DEAD TRACKS? 


BEQ S$ ;BR IF NOT. 


GLOBAL 
C2TsIc 


AREAS 


Pil 


016510 


013737 
013701 
005137 
005101 
053701 
053737 
005137 
005101 
053701 
010137 
005137 
000715 
000207 


002432 
002416 
002430 


002432 
002416 
002430 


002430 
002432 
002432 


MACY1L 30(1046) 09-APR-84 
09 -APR-84 14:37 GL 


002430 


002430 


14:40 


N6 


P 80 
OBAL SUBROUTINES SECTION 


S$: 
4$: 


+XOR THE DATA WITH THE DEAD TRACKS SO NO TRANSITIONS OCCUR ON 


;THE DEAD TRACK BIT CELLS 


:XOR = (A)(NOT B) + (NOT A)(B) = NOTCA + NOT B) + NOTCNOT A + 8) 


TEMP1, TEMPO 
DTKION,R1 
TEMPO 

R1 
TEMP1,R1 
OTKION, TEMPO 
TEMPO 


R1 

TEMPO ,R1 
Ri, TEMP1 
TEMP1L 
PELOAD 
PC 


sSAVE ARG A. 

;SAVE ARG B. 

s INVERT ARG A. 

; INVERT ARG B. 
sGENERATE (A) + (NOT B) 
;GENERATE (NOT A) + (8B) 
; INVERT 

; INVERT 


SEQ 9078 


s;OR THE TWO ARGUMENTS TO GIVE THE xOR. 


;TEMP1 = TEMP1 XOR DIKION 
;SET UP TO LOAD BIT CELL 


+ 


ee 


AREAS 


Pil 


016570 
016570 


016712 
016714 


016720 
016724 


016726 
016732 
016740 
016740 
016742 
016746 
016750 


005001 
000402 


062701 


020127 
003003 


005061 
000770 


113737 
113737 
113737 
113737 
113737 
113737 


113737 
012737 
012701 


012701 
012737 


011105 
016146 
040516 
046105 


MACY11 30( 1046) 
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000016 
000016 


B/ 
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GLOBAL SUBROUTINES SECTION SEQ 0079 
3S/R TO RETRIEVE THE TSO4 FORMATTER AND WRITE CONTROL REGISTERS AND 
sCHECK TO SEE IF THEY CONTAIN EXPECTED DATA, 
’ 
3 INPUTS: EXPECTED DATA PREVIOUSLY SET UP IN PEDATA SUBROUTINE 
3 MSGPKT - TSO4 MESSAGE PACKET. 
: 
3 OUFPUT: ERROR FLAG, ACTUAL DATA 
o 
sCLOBBERS RS,R1 
PEERCK:: INCR R1 FROM 00 TO @12 Br a2 
CLR R1 
BR 50035$ 
500368: 
ADD o2,R1 
500358: 
<MP R1,412 
BGT 50037$ 
LET ACTTBLC(R1) :* 80 sCLEAR 6 LOC OF ACTUAL WRAP REG TABLE 
CLR ACTTBLC(R 
ENDINC 
BR 500368 
500373: 
002354 MOvB MSGPKT+C1i88OR,ACORDY ;ACTUAL OUTPUT READY INFO 
002356 MOVE MSGPKT+C18$1D,AC1IDTR ;ACTUAL 1'°S OR DEAD TRACK INFO. 
002360 MOvVB MSGPKT+C18$TA,ACTRAC ;ACTUAL TRACK ACTIVE INFO 
002362 MOvB MSGPKT+C18$8DA,ACDATA ;ACTUAL DATA INFO 
002364 MOvB MSGPKT+C18$TD,ACTROD ;ACTUAL TRACK DEAD INF 
002366 MOvVB MSGPKT+C18800,ACODTR ;ACTUAL O OR DEAD Thacn INFO. 
LET TEMP2 :Be MSGPKT «PRCHST 3GET THE TRK ACT DATA FOR CHAN 9 
002434 MOVB MSGPKT -P 
002432 MOV 06, TEMP1 s INIT COUNTER 
MOV OACTTBL ,R1 3SET INDEX OF THE FORMATTER AND 
sWRITE CONTROL REG., TABLE 
18: ASR TEMPO sSHIFT CHAN 9 DATA INTO CARRY BIT 
Bcc es 3BR IF DATA WAS CLR. 
BIS OBITS, (CR1L)» sIF DATA WAS SET THEN SET THE CHAN 9 
en ee sBIT IN THE APPROPRIATE “ACTUAL” REG. 
28: BIC OBITS,CR1)> sIF CLR, THEN CLR THE cy" 9 BIT IN 
3 THE APPROPRIATE “ACTUAL " 
3%; DEC TEMP1 sDONE CHECKING ALL THE NEEDED “BITS? 
BNE 1% 368R IF NOT 
sNOW COMPARE THE ACTUAL € EXPECTED DATA AND SET THE ERROR FLAG 
sIF WE HAD AN INVALID COMPARISON, 
MOV OEXPTBL,R1 sSAVE “ACTUAL” TABLE INDEX 
002432 MOV 06, TEMP] s INIT COUNTER 
4$;: LET RS := (RL) XOR 16(R1) 
MOV CRLI,RS 
MOV te. Ri), 
Bic RS. SP) 


Blo Lo(RL>,R 


016772 
01677 
016776 


017002 
017004 


MACY11 30.1046) 09 APR-84 \s 
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002436 


000034 
000002 
002432 


:40 P 


C/ 


82 
SUBROUTINES SECTION 


IF RS NE 90 THEN 


END 


INC ERRFLG 
IF 


LET 34(R1) :* 34(R1) SET.Br RS 


LET RL :* Ri «+ a2 


TEMP 1 
4% 
PC 


sDONE CHECKNING ALL DATA? 
sBR IF NOT 


SEQ 9080 
CSP )+,RS 


RS 
50040$ 


RS, 34(R1 
@2,R1 


GLOBAL 
CZTsiIc 


D7 


Pili oo aenda tagge? 99 APR BO opAt  MOanD OF ENes SECTION 


017006 
017012 
017020 
017024 
017032 
017034 
017040 


017042 
017050 
017054 
017060 
017066 
017072 


017100 
017104 


002416 
000777 
016420 
001000 


002432 


000777 
016420 
002432 
002420 
002416 
177000 


016420 


002432 
002420 


002432 


002416 
002416 


3S/R TO SETUP THE DIABLK IN SUCH A WAY THAT WILL ENABLE THE ROM 
sLOOKUP TABLE LOCATION, SPECIFIED IN ROMLKI, TO BE EXAMINED. 


310.0 ADDRESS BITS ARE NEEDED TO ADDRESS THE ROM FROM 0-1777. THE 9 LOW 
sORDER ROM ADDRESS BITS ARE GATED FROM THE TRACK ACTIVE DATA WHILE THE 
sMSB OF THE ROM ADDRESS IS GATED FROM THE VERTICAL PARITY ERROR (VPE). 


3 

sTHIS S/R LOADS THE DIABLK WITH AN ALL 1'S PREAMBLE; CAUSES A VPE TO SET 
sOR CLEAR IN BYTE 1 DEPENDING ON THE STATE OF ROMLKI (BIT 9); AND CAUSES 
sDEAD TRACKS IN BYTE 2 CORRESPONDING TO BITS 0-8 OF ROMLKI. ; 

8 


ROMLOK:: CLR OTKION 


‘ 


sCLR DEAD TRACK REG. 


MOV 0777, TEMP1 sSET UP TO LOAD ALL 1'S PREAMBLE 
JSR PC ,PELOAD sLOAD PREAMBLE € CONTROL. 
BIT 8 IT9,ROMLKI sMSB OF ROM ADDR SET? 
BEQ 1$ 36R IF NOT 
CLR TEMP 1 sCAUSE VPE=1. 
BR es s CONT INUE 
18; MOV <777,TEMP1 sCAUSE VPE=0. 
es; JSR PC ,PELOAD sLOAD BYTE 1 + CNTRL. 
CLR TEMP1 sINIT TEMP1. 


MOV ROMLKI,OTKION sLOAD ROM ADOR IN DEAD TRACK REG. 
COM OTKION sINVERT IT. ’ 
BIC ©177000,D0TKION ;CLR GARBAGE.” MSB ADDRESS 
sWAS TAKEN CARE OF IN BYTE 1. 
JSR PC ,PELOAD sLOAD BYTE 2 DATA AND CONTROL. 
PC sRETURN. 


SEQ 0081 


GLOBAL AREAS 
CZTSIC.P11 


MACY11 30( 1046) 
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GLOBAL SUBROUTINES SECTION 


3S/R TO GENERATE THE EXPECTED ROM LOOKUP TABLE OUTPUT FROM THE ADORESS 


sIN ROMLKI, 
INPUTS: ROMLKI = ROM ADDRESS 
OUTPUTS: EXROML = EXPECTED ROM LOOKUP TABLE OUTPUT. 
CLOBBERS: TEMPO, R1, R2 


AAAAAAAAAA 
9876543210 


sRDTMK XXXOLOOX11 
o X110X001XXxX 


; 
;PREAM XAACBCCABB 


39 OF 9 MLL1111111 
G 
30 OF 9 x000000000 
: 
sCOR DATA 1000000001 


: 


s INCOR DATA 1000000000 
3 
38 OF 9 (LSB) 


¢ = AO-A7 = MUX 2(0)-2(7) 


3 
3 
3 
3 
3 
3 
Hy X11 
3 
3 
3 
3 
3 AB = MUX PARITY 
3 


AQ = LATCHED PARITY ERROR 


OUTPUT ADDRESSES WHICH ASSERT«s 


THE ROM CONTENTS ARE SHOWN IN THE FOLLOWING TABLE: 


COMMENTS 


ecweoew eee ne eee ee nse nee eee es eee Seesaneeeeseewe sees seeseaesseeeseeseneseanaeecsecsa 


xX = DON'T CARE. MULT - 1 IF 
ANY 2 ADDRESS LINES (OTHER 
THAN AQ) ARE 1. 

x = DON’T CARE. 

xX = DON'T CARE. MUST HAVE AT 
LEAST ONE OF AEBEC. MUST 
HAVE ALL OF A OR B ORC. 

xX = DON'T CARE. 


x = DON’T CARE. 


x = DON’T CARE. 


SEQ 0082 


GLOBAL 
cZTsIc 


AREAS 


Pil 
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14; 37 


017106 005037 002352 


017112 
017116 
017124 
017130 
017132 
017134 
017136 
017140 
017144 
017146 
017150 
017152 


017160 
017166 


017240 


017246 
017254 
017256 


017264 
017272 
017274 


017302 
017310 
017312 
017320 
017322 


052737 


022737 
001003 
052737 


032737 
001003 
052737 


022737 


052737 


000001 
000011 
002420 


002430 


000777 
000010 


000777 
001777 
000020 


09 - APR -84 AGE 85 
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002430 


002352 


002420 
002420 


002430 


002352 


002420 
002352 


002420 
002352 


002420 
002420 
002352 


14:40 P 


ROMEX: : 


x80F 9; 


1$: 


2s: 


XCORDA: 


1$; 


23: 


XINCOR: 


XOOF9: 


X90F 9; 


1$: 


F/7 


CLR EXROML 
sCHECK FOR 8 OF 9. 
MOV #1,R2 
MOV #11, TEMPO 


MOV ROMLKI,R1 


ASR R1 

6cs es 

DEC R2 

DEC TEMPO 
BNE 1$ 

TST R 

BMI x A 


CORD 
BIS @.80F9,EXROML 


SEC 0083 
sINIT. EXPECTED ROM REG. 


sINIT O'S CNTR. 
sLOAD BIT CNTR. NOT INTERESTED IN BITIC. 
3 SAVE ROM TABLE ADDRESS 
3;CLR CARRY TO PREPARE FOR SHIFT 
sSHIFT IT. WAS IS A 1? 
368R IF SO 
;DECR O CNT 
;DECR BIT CNTR DONE ? 
368R IF NOT 
38 OF 9? 
38R IF NOT 
3IF SO, SET THE BIT 


sCHECK FOR CORRECTABLE DATA 


BIT @A9,ROMLKI 
BEQ XINCOR 
BIT 9A8 ,ROMLKT 
BNE XINCOR 
MOV #2,R2 
MOV #12, TEMPO 


MOV ROMLKI,R1 


sCOULD THIS BE CORRECTABLE DATA 
36R IF NOT 
sCOULD THIS BE CORRECTABLE DATA? 
3BR IF NOT 
sINIT 1'S CNTR. 
;LOAD BIT CNTR. NOT INTERESTED IN MSB. 
sSAVE ROM TABLE ADOR. 
zs INIT CARRY TO PREPARE FOR SHIFT. 
‘SHIFT IT. WAS IT A 1? 
sDECR. 1'S CNTR. 
sDECR BIT CNTR. DONE? 
36R IF NOT 
sCORRECTABLE DATA? 
3;8R IF NOT 


VIF SO, SET THE BIT. 


s INCORRECTABLE DATA? 


ASR R1 

Bcc es 

DEC R2 

DEC TEMPO 

BNE 1$ 

TST R2 

BNE XINCOR 

BIS @.CORD,EXROML 
sCHECK FOR INCORRECTABLE DATA 
CMP #1000 ,ROMLKT 
BNE xOOF9 


BIS @. INCOR ,EXROML 
sCHECK FOR O OF 9 


BIT 0777, ROMLKI 
BNE x90F 9 

BIS @,00F 9,EXROML 
sCHECK FOR 9 OF 9 
CMP 0777 ,ROMLKI 
BEQ 1$ 

CMP 01777,ROMLKI 
BNE XMUL T 

BIS #, 90F9,E XROML 


;BR IF NOT 
3IF SO, SET THE “INCOR” BIT. 


3:0 OF 9? 
;8R IF NOT 
sIF SO, SET THE BIT. 


39 OF 9? 

3BR IF SO 

39 OF 9? 

;BR IF NOT 
3;SET THE BIT. 


GLOBAL 
cztsic 


AREAS 


017330 
017334 
017342 
017346 


017370 


017376 
017400 
017404 
017410 
*17414 
317422 
017424 
017430 


017432 
017436 
017440 
017444 
017452 
017454 
017460 
017462 
017466 
017470 
017474 
017502 
017504 
017510 
017512 
017516 
017520 


017524 
017530 
017532 


017540 


MACY11 30(1046) 09-APR-84 
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012702 
012737 


052737 


001410 
052702 


022702 
001003 
052737 


000240 


14:37 


000001 
000011 
002420 


002430 


000017 
000040 


002430 


002352 


002430 


002430 


002430 


002352 


14:40 


XMULT: 


1$: 


2s: 


XPREAM: 


1$: 


2s: 


3$: 


4$: 


5$; 


6$: 


7$; 


G/ 


PAGE 86 
AL SUBROUTINES SECTION 


sCHECK FOR MULTIPLE TRACKS 


#1,R2 
#11, TEMPO 
ROMLKI,R1 


sCHECK FOR PREAMBLE 
eae LINES 9876543210 


XAACBCCABB 


;PREAM=1 IF HAVE ONE OF 


ALL OF A OR B OR C 


3 
@AB!A7!A2, TEMPO 


1$ 
SBITO!BITS,R2 
2s 


@AB!IA7T!IA2],R1 
7$ 


oBITO,R2 
@AS!AL!A0, TEMPO 
$ 


3 
oo 
@AS!AL!A0,R1 
7$ 


oBIT1,R2 
@AG!A4!A3, TEMPO 


S$ 
eBIT2:BITS,R2 
6$ 

Seeennene., R1 
oart2, R2 


ORDER FOR THE PREAMBLE CONDITION 10 BE TRUE, R2 MUST CONTAIN 


AT THIS POINT. 
#17,R2 
7$ 
&,PREAM,EXROML 


sINIT 1'S CNTR. 

sLOAD BIT CNTR. 
sSAVE ROM TABLE ADDR 
sINIT CARRY TO PREPARE FOR SHIFT. 
sSHIFT IT WAS IT A 1? 
3;68R IF NOT 
sDECR 1'S CNTR. 
sOECR BIT CNTR. DONE? 
3;68R IF NOT 
sMULTIPLE TRACKS? 
3;6R IF NOT 
sIF SO, SET BIT BIT 


xX = O OR 1. 


sSAVE ROM TABLE ADDRESS. 


iSET “ALL OF A” AND “1 OF A” INDICATION 


31 OF GROUP A? 

;68R IF NOT - NOT A PREAM 
:SET “1 OF A” INDICATION. 
sALL OF GROUP B ACTIVE? 

;8R IF NOT 

sSET “ALL OF B” + “1 OF B”. 


sSET “1 OF B” INDICATION. 
sALL OF GROUP C ACTIVE? 
;B8R IF NOT 

sSET ALL OF C AND 1 OF C 
s INDICATION. 

31 OF C? 

;8R IF NOT-NO PREAMBLE 
;SET 1 OF C INDICATION. 


3PREAMBLE ? 

3;8R IF NOT 

sIF SO, SET THE PREAMBLE BIT IN 
sEXPECTED LOOKUP TABLE REG. 


SEQ 0084 


GLOBAL AREAS 
CZ2TSIC.PLt 


017542 
017546 
017552 
017556 
017562 
017564 
017572 
017574 
017602 
017604 


017612 
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09 - AP 


013701 


052737 
000207 


002420 
002430 
002430 
000130 


000043 002430 
000604 002430 
000100 002352 


14:40 P 


XRDOF MK ; 


2s: 
3$: 


H/ 


AGE 87 
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sCHECK FOR READ FILE MARK PATTERN 


sADDR LINES 9876543210 
3;ROFMK-1 IF XXXO100X11 - CONDITION 1 
3 OR X110X001XxX - CONDITION 2 
3 IS TRUE. 
3 x= OORI1 
MOV ROMLKI,R1 sSAVE ROM TABLE ADDR. 
MOV R1, TEMPO sGENERATE THE 
COM TEMPO sCOMPLIMENT OF THE ADDR. 
BIT @AG!A4!A3,R1 sCHECK THE O'S IN COND 1 AND COND 2. 
BNE 3$ 368R IF COND 1 AND COND 2 NOT TRUE 
BIT @AS!A1!A0O, TEMPO ;CHECK 1'S IN COND 1. 
BEQ 2s ;B8R IF COND 1 IS TRUE 
BIT @AB!A7!A2,TEMPO ;CHECK 1‘S IN CONDITION 2 
BNE 3$ 3BR IF COND 2 IS FALSE 
BIS @.ROFMK,EXROML ;WE ARE READING A FILE MARK. 
3SET APPROPRIATE BIT. 
RTS PC ;RETURN 


SEG 0085 


[7 


GLOBAL AREAS MACY11 30(1046) 09-APR-84 14:40 PAGE 88 


CZTSIc.P11 09-APR-84 14:37 GLOBAL SUBROUTINES SECTION SEQ 0086 
3402 3S/R TO RETRIEVE THE ACTUAL ROM LOOKUP TABLE OUTPUT AND COMPARE IT 
oe sWITH THE EXPECTED OUTPUT. 
3465 : INPUT; EXROML - EXPECTED ROM OUTPUT. 
bees : MSGPKT - TSO4 MESSAGE PACKET. 
67 Hy 
3408 3 OUTPUT: ERRFLG - ERROR FLAG 
34609 3 ACROML - ACTUAL ROM OUTPUT. 
3470 3 
fh 3 
72 
3473 017614 ROMCK: ; LET ACROML :B= MSGPKT+ROMSLK sGET THE ACTUAL ROM OUTPUT 
3473 317614 113737 002273 002370 MOVB MSGPKT -R 
3475 017622 123737 002370 002352 CMPB ACROML ,EXROML sARE THEY THE SAME. 
3476 017630 001402 BEQ 1$ ;B8R IF SO 
337° 017632 005237 002436 INC ERRFLG sIF NOT SET THE ERROR FLAG 
2478 017636 000207 1$: RTS PC 


GLOBAL. AREAS 
CZ2TSIC.P11 


017640 
017644 
017644 
017646 
017650 
017654 
017656 
017656 
017660 
017662 
017666 
017670 
017670 
017672 
017674 
017700 
017702 
017702 
017704 
017710 
017710 
017712 
017714 
017714 
017722 
017724 
017724 
017730 
017734 
017736 
617740 
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005037 


010102 
010246 
042716 
042602 


010103 
010346 
042716 
042603 


010104 
010446 
042716 
042604 


005005 
004737 


005705 
001026 


023727 
001011 


012746 


14:37 


002432 


000007 


000070 


000700 


020510 


002440 


005775 
000001 


000004 


09 -APR 84 
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GLOBAL SUBROUTINES SECTION 


177777 


sSUBROUTINES MSORT 1 AND MSORT2 SELECT BAD BOARDS FOR TESTS 4 - 


; TABLE BELOW WHERE; 


Fy 22 = M8922 57 = G157 

Hy 24 = M8924 23 = M8923 

: 

3 

+ @-+ee- ee eereereeeeaee -ss sew eww www eee ewe ee eee eee eee tte . 
. Ff BAD BOARD SELECTION TABLE g 
| lll ee H 
s 7 RS BDO/SLOT/BITS MASK PRINTB MSG H 
re eet e tee nee eens H 
. os 0 22/7/0-8 FMTCTR ‘ 
; H 1 24/6/0,1,.2 R2:7 FMTCHE M 
. F 2 24/5/3,4,.5 R3=70 FMTCHS H 
e 4 3 24/4/6,7,8 R4=700 FMTCH4 ‘ 
g 4 400 57/2/0,1.,5.6 R2=143 RDCHe2 H 
s ? 1000 57/1/2,3,4,7 R3=234 ROCH1 $ 
s 8 1400 23/3/8 R4=400 RDCHP3 : 
: Orr ewr eee er ee ese ewes ees eee ene sesr ee eee seer ee es enese . 
H TEST 4 -- MODULE SORT 

MSORT1:: CLR TEMP: :TEPM1-BOADS 24 SELECTION FLAG 


LET R2 := R1 AND @7 


LET R3 :* R1 AND #70 


LET R4 


LET RS 


JSR 


IF RS EQ #0 


:= #0 


:= R1 AND #700 


PC,PAIRST 


THEN 


IF T4S4 EQ @-1 THEN 


PRINTB @T4S4NG 


sR2=BOARD 24/6 MASK 


sR3=BOARD 24/5 MASK 


3R4=BOARD 24/4 MASK 


sR5*BOARD 22/7 FLAG 
sSORT 22 AND 24 BOARDS, 


sBTL 


sBTL CALL BAD G15? 


7 PER 


SEG 0087 


R1,R2 
R2, -CSP) 
@7,CSP) 
(SP)+,R2 


R1,R3 
#70,(SP) 
(SP )+,R5 


R1,R4 

R4, -( SP) 
#700,¢SP 
(SP )+,R4 


CLR R5 
RESULT IN RS LO 


RS 
50041$ 


T4S4,¢-1 
500408 


@T4SamG, 
#1, -(SP) 
SP RO 
CSPNTB 
23,S5P 


GLOBAL. 


cZTsIc. 


AREAS 
Pil 


017744 
017744 
017746 
017746 
017746 
017752 
017756 
017760 
017762 
017766 
017766 
017766 


020114 
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000410 


012746 
012746 
010600 
104414 
062706 


000561 


010102 
010246 
042716 
042602 


010103 
010346 
042716 
042603 


010104 
010446 
042716 
042604 


000305 
004737 


000305 


020527 
001011 


012746 


020527 
001011 


012746 
012746 


14:37 


005064 
000001 


000143 


000234 


000400 


020510 


000001 


005176 
000001 


000004 


000002 


005253 
000001 


000004 


KK 7 
09-APR-84 14:40 PAGE 90 
GLOBAL SUBROUTINES SECTION 


ELSE sBTL 


PRINTB #FMTCTR 


ENDIF 
ELSE 


3;BTL 


LET R2 := R1 AND #143 


LET R3 := R1 AND #234 


LET R@ := R1 AND #400 


LET RS := SWAP RS 
JSR PC,PAIRST 


LET RS := SWAP RS 
IF RS EQ #1 THEN 
PRINTB #FMTCHE ;CALL BAD 24/76 
ELSE 
IF RS EQ #2 THEN 
PRINTB @FMTCHS 


;CALL BAD 24/5 


ELSE 


50043$: 


50041 
3R2=BOARD 57/2 MASK 
3R3=BOARD 57/1 MASK 


3R4=BOARD 23/3 MASK 


;SORT S7 AND 23 BOARDS, 
sANALYZE RS LO BYTE 


50045$: 


50042$: 
322 BOARD SELECTED, CALL BAD 22/7 
Vv 


SEQ 0088 
BR 50043$ 
MO oF MTCTR, 
MOV @1,-C€SP) 
MOV SP RO 
TRAP CsPNTB 
ADD 04,5P 


324 BOARD SELECTED, sauna! — ts SORTING 


500445 
MOV R1,Re 
MOV Re, -( SP) 
BIC #143,(0SP 
BIC (SP )+,R2 
MOV R1,R3 
MOV R3,-CSP) 
BIC #234 ,(SP 
BIC (SP )+,R3 
MOV R1,R4 
MOV R4,-(SP) 
BIC #400,(SP 
BIC (SP)+,RS 
SWAB RS 
RESULT IN RS HI 
SWAB RS 
CMP R5S,¢1 
BNE 50045$ 
MOV oF MTCHE, 
MOV SP RO 
TRAP CSPNTB 
ADO #4,SP 
BR 500465 
CMP R5,#2 
BNE 5004 7$ 
MOV SFMTCHS, 
MOV #1, -CSP) 
MOV SP,RO 
TRAP CSPNTS 
ADD #3 ,SP 


GLOBAL AREAS 
C2TSIC.Pil 


MAC111 30( 1046) 


09 - APR - 84 
000416 


020527 
001011 


012746 


005737 
001465 


013701 
053701 


005701 
001430 


012746 
, 012746 
010600 
104414 
062706 


010105 
000305 


010546 
042716 
042605 
004737 


000427 


010501 


14:37 


002432 


002432 


002406 
002412 


020700 
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GLOBAL SUBROUTINES SECTION 


IF RS EQ #3 THEN 


PRINTB @FMTCH4 ;CALL BAD 24/4 


ELSE 
INC TEMP1 
ENDIF 


ENDIF 
ENDIF 
IF TEMP1 NE #0 THEN 


LET R1 := ACTRK1 OR ACTRK3 
IF R1 NE #0 THEN 
LET R1 := RS 


LET RS := RS AND &3 


JSR PC,FMTSEL 
PRINTB 1 #FMTCTR 


LET RS := SWAP R1 


LET RS := RS AND #3 
JSR PC,ROCSEL 
ELSE 


LET R1 := RS 


500475: 


SEQ 0089 


S0050$ 
RS,#3 
50051$ 


OFMTCH4, 
#1, -(SP) 
SP RO 
CSsPNIB 
#4,S5P 
500S52$ 


50051$: 
;TEPM1 NOT=0 WHEN NO BAD 24 WERE CALLED 


50052$: 
50050$: 


50046 
;IF NO BAD 24 BOARDS CALLED, CONTINUE SO 


TEMP1 


BEQ 50053$ 
sANALYZE TRACK INACTIVE —— RESULTS 


3R1 NOT=O, 


sSAVE RS 


sKEEP 2 LSB'S 


8 
;CALL APPROPRIATE BAD 24 
sCALL BAD 22 


sFETCH RS HI BYTE 


sKEEP 2 LSB'S 


BIS 
TRACK INACTIVE FAILED 
TsT R1 


BEQ 
MOV 


;CALL APPROPRIATE BAD 57/23 


3R1=0, TRACK INACTIVE = oo FAIL 
50054$; 


;SAVE RS 


MOV 


ACTRK1,R 
ACTRK3,R 
50054 $ 
RS,.R1 
RS,-CSP) 


#3,(SP) 
CSP)+.RS 


#FMTCTR, 


RS, -CSP) 
(SP)+,R5 


50055$ 


R5,R1 


GLOBAL. 


CZ7TSIc. 


020332 


000207 


MACY11 30(1046) 09-APR-84 
09-APR-84 14:37 GL 


020700 


14:40 PAGE 92 


JSR PC,ROCSEL 
LET RS 


JSR PC,FMTSEL 
PRINTB #FMTCTR 


OBAL SUBROUTINES SECTION 
LET RS := SWAP RS 
LET RS := RS AND #3 


ENDIF 


ENDIF 
ENDIF 
RTS 


PC 


M7 


>= R1 AND #3 


SWAB 
sKEEP 2 LSB’S OF HI BYTE 

MOV 

BIC 


BIC 
;CALL APPROPRIATE BAD 57/23 
sFETCH 2 LSB’S OF RS LO BYTE 


8 
;CALL APPROPRIATE BAD 24 
;CALL BAD 22 


50055$: 
50053$: 
500443: 


SEQ 0090 


005701 
001442 


010102 
010246 
042716 
042602 


010103 


013701 
053701 


005701 
001410 


MACY11 30(1046) 09-APR-84 
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000070 


020452 


002374 
002404 


N7 


14:40 PAGE 93 


; TEST 5 - 7? -- MODULE SORT 
MSORT2:: IF Rt NE #0 THEN 


LET R2 := R1 AND 47 


LET R3 := R1 AND 970 


LET RS := R1 AND #700 


LET RS :+ 80 
JSR PC,PAIRS! 
IF RS EQ 00 THEN 


PRINTB @FMTCTR 


ELSE 


JSR PC,.FMISEL 
JSR PC,OTRCHK 
ENDIF 
ELSE 
JSR PC, DTRCHK 
ENDIF 
RTS PC 
sCHECK DEAD TRACK ORING ON 22 BOARD 


DTRCHK: LET R1 := ORIDTR OR ORODTR 


IF R1 NE #O THEN 


sCALL 22/7 


SEQ 0091 
sERROR FROM 24 BOARDS, WHICH ONE? 
TST RL 
6EQ 50056$ 
3R2=24/6 MASK 
MOV Ri,R2 
MOV R2, -€ SP) 
BIC #7,0SP) 
BIC (SP )+,R2 
3R3=24/5 MASI 
MOV R1,R3 
MOV R3,-(SP) 
BIC #70,(SP) 
BIC (SP )+,R3 
:R4=24/4 MASK 
MOV R1,R5 
MOV Rs. -€SP) 
BIC #700 ,¢SP 
BIC (SP )+,R5S 
3R5=22/7 FLAG 
CLR RS 
sSORT 22 AND 24 BOARDS 
3 
Tst RS 
BNE 5005 7$ 
MOV oFMTCTR, 
MOV #1. -(SP) 
MOV SP RO 
TRAP CsPNTS 
ADD 04 ,SP 
324 SELECTED, WHICH ONE? 
R 500608 
50057$: 
;CALL APPROPRIATE 24 
sCHECK OR FUNCTION OF 22 
500605: 
BR 500613 
5005638: 
sNO ERROR FROM 24, CHECK OR FUNCTION OF 
5006!$: 
;GET OR DATA 
MOV ORLDTR,R 
BIS ORODTR,R 


TST Rl 
BEQ 50062 $ 


) 
b8 
‘ 
MACY11 30( 1046) O%-APR-84 14:40 PAGE 94 > 
09-APR-84 14:37 GLOBAL SUBROUTINES SECTION SEQ 0092 
PRINIB @FMICTR sOR DATA BAD, CALL 22 BOARD 

012746 005064 MOV OFMTCTR, 
012746 000001 MOV @1,-C(SP) 
010600 MOV SP RO 
104414 TRAP CSPNTB 
062706 000004 ADO 04 ,SP 


ENDIF 


500628: 
000207 RTS PC 


GLOBAL AREAS 


CZ2TSIC.Pit 


3738 
3739 
3740 
3741 
3742 
3748 
3744 


020576 


MACYLL 80. 1046) 
09 -APR 84 


052705 


000411 
005703 
001405 


005704 
001002 


052705 


000402 


052705 


000207 


010546 
003403 
021627 
003402 


012716 


006316 
060716 


14:37 


000002 


000003 


0000053 


09 APR 64 14:40 PAGE 95 
GLOBAL SUBROUTINES SECTION 


sPAIR OF BOARDS SORTING SUBR 
sCR2)CRS) «© CRAIC RE) + (REDCRO) NEQ O 
5 

s R2 NEQ O ---»> R591 

s R35 NEQ O ---> RS#2 

s R4 NEQ O ---> R5S<3 


PAIRST: IF R2 NE 00 THEN 


IF R3 EQ @O AND R4 EQ OO THEN 


LET RS :* RS SET.BY O1 
ENDIF 
ELSE 


IF R3 NE 00 THEN 
IF R4 EQ 00 THEN 


LET RS :+ RS SET.BY 02 
ENDIF 
ELSE 


(ET RS :* RS SET.Br 3 
ENDIF 
ENOIF 
RTS PC 
sFORMATTERS 24 SELECT 
FMTSEL: SELECT RS OF 3 VERIFY 


-» R520 


50064$: 


50063$: 


500673: 


500663: 


500708: 
500658: 


500718: 
500728: 


BIS 


SEQ 0093 


RS, -(SP) 
500718 
(SP), 3 
500728 


24... SFP > 


(SP) 
PCC SP) 


020734 


063607 


os AR be STAISI? O° 8 Btanht 


005176 


005253 


005330 


000093 


D8 


eroul tne’ section 


CASE 1 
PRINTB OFMTCHE 


CASE 2 


PRINTB OFMTCHS 


CASE 3 


PRINTB OFMTCH4 


ENDSELECT 

RTS PC 
sREAD CHANNEL 57/723 SELECT 
ROCSEL: SELECT RS OF 3 VERIFY 


CASE 1 


50073$: 


50077: 


50076$: 


50075$: 


50074$: 


501008: 
SOLOLS: 


501028: 


5010e$; 


OFMTCHS, 
#1, -(SP) 
SP RO 
CSPNTB 
04,SP 


RS. -(SP) 
501008 
(SP),93 
501018 


24,(SP) 
CSP) 


PC.CSP) 
aC sP)+,P 


GLOBAL AREAS MACYILL 3011046) 09-APR-84 14:40 PAGE 97 
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3850 020734 PRINTB @#RDCH2 


3851 020734 012746 005405 
3852 020740 012746 000001 


3855 020750 062706 000004 


3856 020754 CASE 2 

3857 020754 000421 ] 
3858 020756 501055: 
3859 020756 PRINTB 9ORDCHI 


3860 020756 012746 005454 
3861 020762 %12746 000001 
3862 020766 110600 
3863 020770 104414 
3864 020772 062706 000004 


3865 020776 CASE 3 

3866 020776 000410 8 
3867 021000 50104$: 
3868 021000 PRINTB @ROCHPS 


3869 021000 012746 0055. ° 

3870 021004 012746 000001 

3871 021010 010600 

3872 021012 104414 

3873 021014 062706 000004 

3874 021020 ENDSELECT 

3875 021020 501038: 
3876 021020 000207 RTS PC 


GLOBAL. 
ceztsic 


AREAS 
Pil 


021022 
021022 
021026 
021032 
021032 
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017701 
042701 


013701 
000301 


042701 


020127 
001011 


111102 
106302 


062702 


011103 
000303 


010346 


042716 
042603 


011246 


161176 
177701 


000016 


002274 


177400 
000337 


027374 
000001 


000004 


000127 


177740 


021234 


021314 


000377 


09 - APR -84 


14:40 PAGE 98 


F8 


GLOBAL SUBROUTINES SECTION 


TEST 9, 10 -- MODULE SORT 


SEQ 0096 


MSORTS:: LET RL :* @TSSR CLR.BY @TCFCMK ;GET TERMINATION AND ete CLASS CODES 
Vv 


@TSSR,R1 
BIC @TCFCMK, 
IF Rl EQ #16 THEN sFC=0, TC#7 
cmp R1,916 
BNE 50107$ 
ERRHRD 19,MICROE ,MICERR 
TRAP CSERHRD 
«WORD 19 
-WORD MICROE 
-WORD MICERR 
LET R1 :* SWAP XSTATS s INPUT MICRO CODE ERROR 
MOV XSTAT3,R 
SWAB R1 
LET Rl :* R1 CLR.BY 0177400 sKEEP 8 LSB'S 
BIC #177400, 
IF R1 EQ 0337 THEN 
CMP R1,0337 
BNE 50110$ 
PRINTS #COD337 
MOV #C00337, 
MOV RO 
TRAP CSPNTB 
ADD @4,SP 
ELSE 
BR 501118 
501108: 
IF R1 LOS #127 THEN 
CMP R1,#127 
BHI SOlle$ 
LET RL := R1 CLR.BY #177740 
BIC #177740, 
LET R1 := R1 SHIFT 1 sR1X2 FOR WORD a 
A. 
LET R1 := Ri + #LOOKTB s INDEX INTO LOOK-UP TBL 
ADD #LOOKTB, 
LET R2 :B= (RL) SHIFT 1 sGET WORD OFFSET INTO CODTBL FROM LOOKTB 
MOVB CR1),Re2 
ASLB R2 
LET R2 :* R2 + OCODTBL ; INDEX INTO COOTBL 
; ADD #COOTBL. 
LET R3 :* SWAP (R1) ;GET NO OF LINE TO PRINT 
MOV CR1),RS 
SWAB R3 
LET R3 := R3 AND #377 3FROM LOOKTB 
MOV R3, -« SP) 
BIC O377,¢CSP 
BIC (SP )+,R3 
REPEAT 
501138: 
PRINTB (RO) sPRINT CURRENT i INE 
MOV CR2),-€5 


G8 


GLOBAL AREAS MACY11 30(1046) 09-APR-84 14:40 PAGE 99 

CZ2TSIc.P11 09-APR-84 14:37 GLOBAL SUBROUTINES SECTION SEQ 0097 
3933 021160 012746 000001 MOV #1,-C(SP) 
3934 021164 010600 MOV 2RO 
3935 021166 104414 TRAP CSPNTB 
3936 021170 062706 000004 ADD @4,SP 
3937 021174 LET R2 :* R2 + #2 sTHEN THE NEXT, 
3938 021174 062702 000002 ADD #2,R2 
3939 021200 LET R35 :* RB - 1 sIF ANY 
3940 021200 005303 DEC R3 
3941 021202 UNTIL R3 EQ 00 
3942 021202 005703 TST R3 
3943 021204 001364 BNE 501138 
3944 021206 ELSE 
3945 021206 000411 BR 50114$ 
3946 021210 50112$: 
3947 021210 PRINTB @CODXXx,R1 
3948 021210 010146 MOV R1,-(SP) 
3949 021212 012746 027336 MOV @CODXxx, 
3950 021216 012746 000002 MOV #2, -C(SP) 
3951 021222 010600 MOV SP ,RO 
3952 021224 104414 TRAP CSPNTB 
3953 021226 062706 000006 ADD #6 ,SP 
3954 021232 ENDIF 
3955 021232 501148; 
3956 021232 ENDIF 
3957 021232 SOLLL$: 
3958 021232 ENDIF 
3959 021232 501078: 
3960 021232 000207 RTS PC 


GLOBAL AREAS 
CZ7TSIC.P11 


021312 


MACY11 30(1046) 09-APR.64 
09 -APR-84 14:37 


14:40 P 


sMICRO D 


sCODOO THRU 
sCOD22, COD23, COD30 AND ABOVE, ARE UNDEF INED 


LOOKTB: 


BYTE 


H8 


AGE 100 
GLOBAL SUBROUTINES SECTION 
IAG ERROCR CODE LOOKUP TABLE 
C0027 


>» NO OF LINES TO PRINT, IN HI BrTE (ODD) 
>» OFFSET IN COOTBL, IN LO BrTE (EVEN) 


SEQ 0098 


18 


GLOBAL ARFAS —_MACY11 $0( 1046) 09-APR 84 14:40 PAGE 101 
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+04 sMICRO CODE ERROR AD TABLE 

3996 021314 021474 021602 021667 CODTBL: .WORD CO0D00,COD00A,COD00B 30 3 
3997 021322 021751 022050 .WORD €0D01,CODO1A 33 2 
3998 021326 022072 .WORD CODO2 :5 1 
3999 021330 022165 022273 .WORD CODO03,CODO3A 26 2 
4000 021334 022351 022457 .WORD CO0D04,CODO4A 310 2 
4001 021340 022506 .WORD CODOS 12 1 
4002 021342 022605 .WORD  COD06 313 1 
4003 021344 022702 .WORD C0007 314 1 
4004 021346 022773 023101 023203 .WORD €0D10,C0D10A,C0D108 315 3 
4005 021354 023234 023317 023403 .WORD €0D11,C0011A,C00118 320 3 
4006 021362 023503 023606 -WORD (C0D12,COD12A 323 2 
4007 021366 023666 023765 024037 -WORD (€0013,C0013A,C0D1368 325 3 
4008 021374 024117 024221 024301 -WORD (€0014,COD14A,C00148,C0014¢ 330 4 
4009 021402 024354 

4010 021404 024434 024535 024621 -WORD (00D15,C0015A,C001568,COD15C 334 4 
4011 021412 024675 

4012 021414 024755 025057 025137 -WORD C€0D16,C0D16A,C00168,C0D16C 340 4 
4013 021422 025221 

4014 021424 025301 025405 025464 -WORD (€0017,C0017A,C0D178 344 3 
4015 021432 025544 025652 -WORD C0D20,COD20A 347 2 
4016 021436 025752 026060 -WORD CO0D21,COD21A 351 2 
4017 021442 026106 .WORD COD22 353 1 
4018 021444 026143 .WORD C0023 354 1 
4019 021446 026200 026306 -WORD C0D24,COD24A 355 2 
4020 021452 026344 026452 026526 .WORD CO0D25,COD25A,C00258 357 z 
4021 021460 026623 026706 026762 -WORD C0D26,COD26A,C0D268 262 3 
a02e 021466 027057 027165 027241 -WORD COD27,C0D27A,C0D278 365 3 

a et * 

4024 : : : 
4025 sOFFSET INTO THIS TABLE <-------.--.--.------.---° ' 


6026 ;NO OF .WORDS*NO OF LINES TO PRINT « .--.__. 


GLOBAL AREAS 
C2TSIc.Pil 


402 Pf 
4028 
4029 


021474 
021602 
021667 
021751 
022050 
022072 
022165 
022273 
022351 
022457 
022506 
022605 045 
022702 
022773 045 
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J8 


GLOBAL SUBROUTINES SECTION 
sMICRO CODE ERROR MSGS 


Cc 00268: 


SEQ 0100 


BEX 
/@A100 BASIC IO MICRO FAIL:PAR ERR, IOATN,HANDSHAKE, M8967(12) 


/#A DATA WINDOW TEST BETWEEN IO AND MAIN MICROS,SN/ 


/@A SERIAL BUS.SHIN (SHIFT IN) STUCK TRUE,...9N 
/#A101 ERROR IN IO CONTROL REGISTER TEST#S138AM8966( 14 ) 


/8SSOSAMB96 7( 12 )SN/ 


/#A102 FAILURE OF FRAME COUNTER TESTSS17s8AM8966( 14 ) 


/@A103 FAILURE OF IO SILO NON-PARITY ERROR DATA 
/8A TEST OR THE WRITE FLAGSS248AM8963( 11 )SN/ 
/@A104 FAILURE OF IO SILO PARITY ERROR TEST OR 
/@A DATA LATE TESTSN/ 


/@A10S FAILURE OF SHIFT LOOP WITH ZEROES#S138AM8965( 15) 
/@A106 FAILURE OF SHIFT LOOP WITH ONES#S15S8AM8965( 15) 


/@A107 FAILURE OF SHIFT LENGTH MUX#S198AM8965( 15) 


158N/ 


158N/ 
M8966( 14) 


M8966( 14 ) 
208N/ 


218N/ 
22aN/ 


/@A110 FAILURE TO RECEIVE CORRECT OP-CODE FROM TS11 ™8965(15) 
/#A WHEN DATA SENT OVER THE SERIAL BUS#S128ATS11,MOTHER BOARD 


/SSSOSASERIAL BUS CABLESN/ 


/@A111 FAILURE OF LKHZ CLOCK TESTS#S208AG159SS9SA2QSN/ 
/@A TSTS TAC SYNC FLOP AND ATTNSS19SACBUS CABLESN/ 


/®ACHECK TACH PHASE ,SKEW,SPEED ADJUSTS ON G159 
/@A112 LIGHT REG CHANGE 
/®ACHECK TACH PHASE ,SKEW,SPEED ADJUSTS ON G159sN/ 
/#A113 FWO OR MVG BITS WRONG AFTER 
HA SIMULATED COMMAND AND TACH PULSES#SN/ 

/@ACHECK TACH PHASE ,SKEW,SPEED ADJUSTS ON G1598N 


M8963( 11 )sN 


O WHEN MOTION REG WAS CLEARED G159sS98A3, 
1 TICK OF SS9BAG1S9SS9NAS , 45N/ 


/A114 FAILURE OF SIMULATED CAPSTAN SPEED TEST: *SS6SAG1S9NS9NAS, 6 


oA CAPSTAN SPEED COUNTER OUT OF RANGE WHENSN/ 
x TAPE MOTION AT SPEED WAS SIMULATEDSN/ 
/@ACHECK TACH PHASE ,SKEW,SPEED ADJUSTS ON G1S9sIN/ 


/@A115 FAILURE OF SIMULATED SLOW CAPSTAN TEST:8S78AG1S9SS9NAS , 48 


/@A SPEED COUNTER NOT LATCHED UP WITH MAX COUNTSN/ 


/@~A WHEN SLOW TACK TICKS WERE SIMULATEDsN/ 
/@ACHECK TACH PHASE ,SKEW,SPEED ADJUSTS ON G159sN/ 


/@A116 FAILURE OF SIMULATED CAPSTAN DECEL TEST: #S68AG1598S9NAS 4 


/@A COUNTER NOT ZERO FOR FORWARD OR 377 FORSN/ 
/#A REVERSE WHILE DECELERATING OR 
/@ACHECK TACH PHASE ,SKEW,SPEED ADJUSTS ON G159SN/ 


MVG BIT =OsN/ 


/@A117 FAILURE OF MOVING FLOP TO RESET AFTER STOPSS48AG159NS9NA3 


/@A (DIRECTION REVERSAL FOR ONE TACH TICK )sN/ 
/@ACHECK TACH PHASE ,SKEW,SPEED ADJUSTS ON G1598N/ 
A120 FAILURE OF WRITE BOARD TO TURN ON AND EMPTY 
/8A THE SILO OR DATA LATE BIT NOT WORKING 
/@A121 FAILURE OF WRITE BOARD TO EMPTY SILO AT 

/8A CORRECT SPEEDsSN/ 

4#A122 UNDEFINED ERROR CODESN/ 

/#A123 UNDEFINED ERROR CODESN/ 

/#A124 FORMATTER CTRL BOARD: FORMATTER FLAG FAILED 
/@ACHECK VC ADJUST ON M8922sN/ 

/#A125 FORMATTER SILO FILLING AND DATA ERROR 
/@ACHECK VCO ADJUST ON M89228S258AM8923( 3 )SN/ 


M8929( 13) 
M8966( 14 aN 
M8929( 13) 


M8922(7) 
M8922( 7) 


/@ACHECK SKEW, THRESHOLD ADJUSTS ON M89238S128AM8924(4,5,6)0N 


/@A126 PEAK SHIFT TEST ERRORSS258AM8922( 7 )SSSBAQSEN/ 


/®ACHECK VCO ADJUST ON M89228S258AM8923( 3 SN, 


/@ACHECK SKEW, THRESHOLD ADJUSTS ON M892385128AM8924(4,5,06)6N 


GL OBAL 


AREAS 


C2TSIC.P11 


027057 
027165 
027241 


027426 
027426 
027426 
027430 
027432 
027434 
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000000 
177777 
177777 


030501 
041501 
041501 
022463 


031463 


K8 
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033462 
042510 
042510 
020101 


020067 


103 
GLOBAL SUBROUTINES SECTION SEQ 0101 
COD27: .ASCIZ /#A127 FORMATTER TABLE LOOKUP ROM CHECKSUM TEST ERR M8922(7) 
COD27A: .ASCIZ /#ACHECK VCO ADJUST ON M89228S258AM8923( 3 )SN/ 
COD27B8: .ASCIZ /#ACHECK SKEW, THRESHOLD ADJUSTS ON M89238S128AM8924(4,5,6)sN/ 
CODXxXx: .ASCIZ /#038A UNDEFINED ERROR CODESN/ 
COD337: .ASCIZ /#A337 CAPSTAN RUNAWAYSN/ 
-LIST BEX 
-EVEN 
ENOMOD 
-SBTTL LOAD DEV PROTECTION TABLE 
zee 
; TABLE FOR SUPERVISOR TO IDENTIFY P-TBL FOR LOAD DEV 


;AND TO WARN OPERATOR WHEN HE TRIES TO TEST THE LOAD DEVICE 
Ron 


BGNPROT 
L$PROT:: 
-WORD 0 3P-TBL OFFSET OF TSSR 
-WORD -1 3P-TBL OFFSET OF MASS BUS UNIT#: -1 = NOT A MASS 
-WORD -1 3P-TBL OFFSET OF DRIVE #: -1 = NONE, ONE DRIVE P 


GLOBAL AREAS 
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027434 
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032727 
001421 


000000 
013727 
000000 


012737 


012700 
104447 


103402 
005237 
013700 


020027 
003401 


104444 


000003 


000310 
002116 
177772 
177756 


000035 


177777 
000034 


027712 
027712 
000003 


09-APR -84 GE 104 
LOAD DEV PROTECTION TABLE 


002230 


027712 


14:40 PA 


L8 


. TITLE MISCELLANEOUS SECTIONS 


. SBTTL 


INITIALIZE SECTION 
BGNMOD 


SEQ 0102 


3*? 
; THE INITIALIZE SECTION CONTAINS THE CODING THAT IS PERFORMED 


LSINIT:: 


1$: 


3; AT THE BEGINNING OF EACH PASS. 
BGNINIT 
BIT #BITO!BIT1, #CMDPKT 
BEQ 2s 
ERRSF 1,MODUER 
DELAY 200. 
BR 1$ 


es: 


3$: 


4$: 


READEF #EF .NEW 


BNCOMPLETE 3$ 
LET LUNIT 
READEF #EF .PWR 


3:2 @-1 


BCOMPLETE 4$ 

LET LUNIT := LUNIT + #1 
LET RO := LUNIT 

IF RO GT #3 THEN 


DOCLN 
ENDIF 


GPHARD RO,RO 


3:IS CMD PKT ON A MODULO 4 BOUNDARY? 
3;6R IF SO. OK. 
33IF NOT, TELL HIM THE Ee IS SCREWE 


TRAP CSERSF 
«WORD 1 
«WORD MODUER 
WORD O 
;GO TO THE SUPERVISOR, WAIT 1 SECOND. 
MOV #200. ,(P 
-WORD O 
MOV LSOLY,¢P 
-WORD O 
DEC -6(PC) 
BNE 7-4 
DEC -22(PC) 


BNE .-20 
3s;TELL HIM AGAIN IF HE INSISTS ON CONTIN 


:IS THIS A NEW PASS? 
MOV oEF .NEW, 
TRAP CSREFG 
;BR IF NOT. 


Bcc 3$ 
sINIT THE LOGICAL UNIT @. 
MOV #-1,LUNT 
sHAS THERE BEEN A POWER FAILURE? 
MOV OEF .PWR, 
TRAP CSREFG 
;BRANCH IF SO - KEEP CURRENT =, *. 


sUPDATE UNIT #. 


INC LUNIT 
sPREPARE TO PASS #@ TO SUPER. 

MOV LUNIT,RO 
:IF # IS PASS THE LIMIT THEN: 

CMP RO, #3 

BLE SOLLSS 
;D0 CLEANUP AND TERMINATE PASS. 

TRAP CSOCLN 


SOLLSS: 
;SETUP TO RETRIEVE HRD P-TABLE DATA, 


MISCELLANEOUS SECTIONS 
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027706 
027710 


027712 


027714 
027714 
027714 


09 -APR -84 
104442 


013705 
006305 


012746 
016546 
013746 
012746 
104437 
062706 


013737 
104432 
000004 


104411 


027716 
027716 


027716 
027716 
027722 
027722 
027726 
027732 
027736 
027742 


105037 


012746 
012746 
012746 
012746 
104437 
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000010 
027712 


030166 
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002422 
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INITIALIZE SECTION SEQ 0103 
TRAP C$GPHRD 
BNCOMPLETE 3$ ;BR IF THIS UNIT HAS a eakiien 
MOV CRO), TSSR ;GET THE TSSR ADDR. 
MOV TSSR, TSDB sCALCULATE THE 
SUB 42, TSOB ;TSOB ADDRESS. 
MOV TSOB, TSBA ;LOAD TSBA ADDRESS. 
MOV TSBA, TSBAHI sCALCULATE THE TSBA 
ADD #1, TSBAHI sHI BYTE ADDRESS. 
MOV TSOB, TSOBHI sCALCULATE THE 
ADD #1, TSOBHI :TSOB HI BYTE ADDR. 
MOV 2CRO), TSVCT ;GET THE VECTOR ADDRESS. 
LET RS := LUNIT SHIFT 1 ;GET LOGICAL UNIT # X 2. 
7 > aaa RS 
SETVEC TSVCT,TS4INTCRS), #INTPRI ;SET UP INTERRUPT PROCESSING CON 
MOV #INTPRI, 
MOV TS4INTCR 
MOV TSVCT, -¢ 
MOV #3,-CSP) 
TRAP CSSVEC 
ADD #10,SP 
LET UNIT := LUNIT ;SET UP UNIT # FOR PRINTOUTS. 
MOV LUNIT,UN 
EXIT INIT 
TRAP CSExIT 
.WORD L10031-. 
F LOCAL STORAGE THAT IS USED ONLY DURING THE INITIALIZE SECTION. 
LUNIT: .WORD f@) ;CURRENT LOGICAL UNIT #. 
.EVEN 
ENDINIT 
L10031: 
TRAP C$sINIT 
-SBTTL AUTO DROP SECTION 
3 ++ 
;SECTION EXECUTED AFTER THE INIT CODE WHEN “ADR” FLAG IS SET BY OPERATOR 
;SECTION CHECKS FOR A VALID INTERFACE LOCATION. OROPS UNIT IF NO RESPONSE 
3FROM INTERFACE 
H -_=- 
BGNAUTO 
LS$AUTO:: 
LET TRAPD4 :B= #0 
CLRB TRAPD4 
SETVEC #4, #TRAP4, #PRIO7 
MOV #PRIO?7, - 
MOV #TRAP4, - 
MOV #4, -(SP) 
MOV #3, -CSP) 
TRAP C$SVvEC 


MISCELLANEOUS SECTIONS 
CZTSIc.Pil 


4159 


027744 
027750 
027750 
027754 
027754 


030144 
030152 


062706 
017701 


012700 
104436 


105737 
001415 


032777 
001014 


013746 
012746 
012746 
010€00 
104417 
062706 
004737 


104461 


040445 
051124 
020124 
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045 
051105 
041040 
020122 
042523 
040440 
040440 
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052502 
050101 
047445 


044501 
040506 
042101 
047516 
020124 
047502 
022504 


152174 


020123 


052116 
042503 
047440 
020124 
047524 
042526 
000116 


L10032: 


AUTODM: 


O PAGE 106 
LET R1 := @TSSR _ 
MOV 
CLRVEC #4 
MOV 
TRAP 
IFB TRAPD4 NE #0 THEN 
TST8 
PRINTF #AUTODM,TSSR cite 
MOV 
MOV 
MOV 
MOV 
TRAP 
ADD 
JSR PC,DROPU 
ELSE 
BR 
50116$: 
IF #TS.SSR NOTSETIN @TSSR THEN 
BIT 
BNE 
PRINTF @SSROFF UNIT 
MOV 
MOV 
MOV 
MOV 
TRAP 
add 
JSR PC, DROPU 
ENDIF 
501208: 
ENDIF 
501178: 
ENDAUTO 
2 TRAP 


-ASCII /#ABUS TRAP AT sO06SN/ 


-ASCIZ /#AINTERFACE BAD OR NOT SET TO ABOVE ADSN/ 


-EVEN 


DEVICE BUS TRAP HANDLER 
OUTPUT: TRAPD4 BITE 1: 
O: 


TRAPED AT 4 
NO TRAP 


SEQ 0104 
#10,SP 
@TSsR,R1 


#4,RO0 
CsCvec 


CsaAuTOo 


MISCELLANEOUS SECTION 
CZTSIC.P11 


4215 
4216 
4217 
4218 
4219 
4220 
8e2 


8LQ02 


030160 
030160 
030164 


030166 


. 


105237 
000002 


000 
030170 
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030166 


Bo 
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AUTO DROP SECTION 


TRAP4: LET TRAPD4 


RTI 
TRAPD4; .BYTE 
EN 


0 


:B« TRAPD4 


+ @1 


sTRAPED AT 4 FLAG 


INCB 


SEQ 0105 


TRAPD4 


030170 
030170 


030170 
030170 


030210 
020210 
030210 


R a4 


ous see yy | be 50( 1046) 


013700 002226 


104436 


013700 
104441 


104432 
000002 


104412 


000340 


09 APR 
Ct ANUP 


ODING 
. SBTTL 


CLEANUP CODING SECTION 


Be 


40 _ P 
nae Pant AGE 108 


+ THE CLEANUP of hace SECTION CONTAINS THE CODING THAT IS PERFORMED 
; hi THE END OF 


8 
LSCLEAN:: 


L10035: 


GNCLN 


CLRVEC 


SETPRI 


ExIT 


EVEN 
ENOCLN 


EACH PASS. 


Tsvcr 


PRIO? 


CLN 


sRELEASE THE INTERRUPT VECTOR. 
MO 


v 
TRAP 


MOV 
TRAP 


TRAP 
. WORD 


TRAP 


SEQ 0106 


TSVCT,RO 
CsCvec 


PRIO7,RO 
CS$SPRI 


CSExIT 
L10C33.-. 


CSCLEAN 


CoReel 
TSIc. 
42 


D9 


Pri > SOCABR Be Tacgp SOC 1046) DROP UNI? sett ida PAGE 109 SEQ 0107 


030226 


000240 
000240 
000240 
000240 


000167 
000000 


104453 


-SBTTL OROP UNIT SECTION 


tee 

s THE DROP-UNI'’ SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 
+ TO NO LONGER BE TESTED. 

s °° 


BGNDU 
L$DU:: 
NOP 
NOP 
NOP 
NOP 
ExIT Du 
’ .~ WORD J$ IMP 
- WORD 10034 -2 
-EVEN 
ENDDU 
L10034; 


TRAP CsOu 
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030244 
030244 
030244 


030246 
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000240 
000240 
000240 
000240 


000167 
000000 


104452 


E9 
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ADD UNIT SECTION 


-SBTTL ADD UNIT SECTION 


see 


; THE ADD-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 
TO BE (A) TESTED FOR THE FIRST TIME, 


3 
; “EF .AUNIT” IS SET, 
3 “«- 


LSAU:: 


L10035: 


BGNAU 


AU 


OR (8) RESUMED IN TESTING. IF 
THE UNIT WILL BE TESTED AS A NEW INIT. 


. WORD 
. WORD 


TRAP 


SEQ 0108 


J$JMP 
L19035-2 


CsAU 


HARDWARE 


TESTS MACY11 80( 1046) 
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104402 
104404 
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000200 151742 


014654 


014702 


09-APR-84 14:40 


r? 
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ADD UNIT SECTION 


.T 


ITLE HARDWARE TESTS 


-SBTTL TEST 1: POP11/TS11 WRAP TEST. 
BGNMOD 


P 


TEST TO INSURE PROPER COMMUNICATION BETWEEN THE POP11 AND THE 1Si1 Br 


ety: THE aes PATTERNS: 
A 1 INA FIELD OF 0'S; AO IN A FIELD OF 1'S. 


WHEN DATA IS WRITTEN TO THE TSOB HI BYTE, THE DATA IS WRAPPED 
AROUND WIHTIN THE TS11 AND APPEARS IN THE TSBA LO 

AND HI BYTES. THE 2 LOW ORDER BITS OF THE DATA WILL BE 
REFLECTED IN THE TSSR EXTENDED ADDRESS BITS. 

R4 CONTAINS A COPY OF THE DATA SENT. 

R3 CONTAINS THE EXPECTED TSBA RESULTS 

R2 CONTAINS THE EXPECTED STATE OF THE TWO EXTENDED ADDRESS 
BITS IN THE TSSR. 


BGNTST 
Tl:: 
BGNSUB 
T1.1: 
TRAP 
SGNSEG 
TRAP 
BRESET sRESET THE BUS. 
TRAP 
IF @TS.SSR SETIN @TSSR THEN 
BIT 
BEG 
ERROF 29,SSRON 
TRAP 
.WORD 
.WORD 
.WORD 
PRINTB #TS118D 
MOV 
MOV 
MOV 
TRAP 
ADD 
CALL DROPU 
JSR 
ENDIF 
501218: 
ENDSEG 
10000$: 
TRAP 
CALL WAITSR 
JSR 


ENDSUB 


SEQ 0109 


CsB8SuUB 
CSBSEG 
CSRESET 


@TS.SSR, 
S50i21$ 


CSERDF 
29 
SSRON 
9) 


#TS1180, 
#1, -CSP) 


PC ,OROPU 


CSESEG 
PC WAITS 


GI 

3 
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4362 030326 L10037;: 

4363 030326 104403 TRAP CsESUB 
4364 030330 012704 000200 MOV #200 ,R sINIT THE DATA, 

4365 sREPEAT FOLLGuING UNTIL DATA ALL * SHIFTED 

4366 030334 005002 TIDATA: CLR sR2 WILL HOLD xX ADDR BITS. 

4367 030336 032704 000001 BIT @BITO, R4 sBET O SET IN DATA? 

4368 030342 001402 BEQ 1% 3BR IF NOT. 

4369 030344 052702 000400 BIS #TS.XAO,R2 sIF SO SET THE BIT. 

4370 030350 032704 000002 1$; BIT  @BIT1,R4 sBIT 1 See IN DATA? 

4371 030354 001402 BEQ 2s ;BR IF 

4372 030356 052702 001000 BIS #TS.XxA1,R2 :IF SO Ser" THE BIT. 

4373 sR2 NOW CONTAINS THE EX ADDR BITS 

4374 sEXPECTED IN THE TSSR. 

4375 030362 005003 2s: CLR R3 ;CLR TSBA EXP RESULTS REG. 

4376 030364 150403 BISB R4,R3 sSETUP R3 TO LOOK LIKE 

4377 030366 000303 SWAB RS sTHE TSBA CEXPECTED RESULTS). 

4378 030370 150403 — :R3 NOW CONTAINS THE TSBA EXPECTED RESUL 


4381 030372 104402 3 TRAP CsBSuUB 


4383 030374 104404 TRAP C$BSEG 
4384 030376 004737 014702 JSR PC,WAITSR :GO WAIT FOR SSR BIT TO SET. 
4385 030402 IF @TS.SSR SETIN @TSSR THEN 

4386 030402 032777 000200 151614 BIT @TS.SSR, 
4387 030410 001402 BEG SOl22$ 
4388 030412 004737 030450 JSR PC, TLWRAP 

4389 030416 ENDIF 

4390 030416 50l22$: 

4391 030416 ENDSEG 

4392 030416 10000$: 

4393 030416 104405 TRAP CSESEG 
4394 030420 005077 151600 CLR @TSSR sSUBSYSTEM INIT. 

4395 030424 CALL WAITSR 

4396 030424 004737 014702 JSR PC.WALTS 
4397 030430 CALL SHWRAP 

4398 030430 004737 016104 JSR PC. SHWRA 
4399 030434 ENDSUB 

4400 030434 L10040; 

4401 030434 104403 TRAP CsESUB 
4402 030436 120427 000377 CMPB R4,0377 

4403 030442 001334 BNE TIDATA 


4405 030444 EXIT TST 
4406 030444 104432 TRAP CSExIT 
4407 030446 000132 WORD L100%6-. 


4409 sTEST 1 SUBR TO WRAP AND CHECK DATA 

4410 030450 110477 151542 T1IwRAP; MOVB R4,3TSDOBHI sSEND THE DATA, 

4411 030454 DELAY 10, 3GO TO SUPERVISOR, WAIT 1 MSEC. 
4412 030454 012727 000012 MOV #10. oi PC 


000000 ° 
4414 030462 013727 002116 MOV L$OL° 
000000 


4416 030470 005367 177772 dEC -6( PC) 
4417 030474 001375 BNE Byer 
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C2TSIcC.P 11 09 -APR 84 14:37 TEST 1: POP WRAP TEST, SEQ O111 


4418 030476 005367 177756 DEC -22(PC) 
4419 030502 001367 BNE -20 
4420 030504 017737 151510 002432 MOV @TSBA,TEMP1 sSAVE THE TSBA REG. 
4421 030512 IF R3 NE TEMP1 THEN 

4422 030512 020337 002432 CMP R35, TEMP1 
4423 030516 001406 BEQ 50123$ 
4424 030520 ERRDOF 3,WRPER1,WRAPR1 

4425 030520 104455 TRAP : sEROF 


000003 . WORD 
4427 030524 002710 «WORD WRPER: 
4428 030526 006150 «WORD WROPR1 
4429 030530 CALL = ODROPU 
4430 030530 004737 014654 JSR PC ,OROPY 


4333 030534 017737 151464 002434 MOV a@TSSR, TEMPO sGET TSSR. 

4434 030542 012701 001400 MOV @TS.XAO!TS.XA1,R1 sMASK OFF THE XADOR BITS. 

4435 030546 005101 COM Ri sBIT CLR ALL BUT THE 

4436 030550 040137 002434 BIC R1,TEMP2 sEXTENDED ADOR BITS. 

4437 030554 IF R2 NE TEMP2 THEN 

4438 030554 020237 002434 CMP R2, TEMPO 

4439 030560 001406 BE 50124$ 

4440 030562 ERRDF 4,WRPER2,WRAPRG 

4441 030562 104455 TRAP CSEROF 
000004 4 


4443 030566 002742 -WORD WRPER2 
4444 030570 006630 -WORD WRAPR4 
4445 030572 CALL = DROPU 

4446 030572 004737 014654 JSR PC DROP 
4447 030576 ENDIF 

4448 030576 501248: 

4449 030576 000207 RTS PC 


4455 -EVEN 


4457 030600 ENDTST 
4458 030600 L10036: 
4459 030600 104401 TRAP CseTsrT 
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4401 
4462 
4468 
4404 
4465 
4460 
4467 
4468 
4469 
4470 
4471 
4472 
4473 
4474 
4475 


030732 


O09 - APR 84 


012704 
005077 
004737 


032777 
001452 


104402 
110477 
012727 
000000 
013727 
000000 


017737 


123704 
001406 


104455 
000005 


003017 
006304 


004737 


017737 


123704 
001406 


104455 
000006 


14:37 


000200 
151412 


014702 
000200 


151360 
000012 
002116 
177772 
177756 
1513350 
002432 


014654 


151304 
002434 
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151400 


002432 


002434 


14:40 PAGE 


. SBTTL 
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19 
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TEST 2: PDP11/TSO4 WRAP TEST. 


TEST 2: PDOP11/TSO4 WRAP TEST. 


TEST TO INSURE PROPER COMMUNICATION BETWEEN THE POP11 AND 
THE TSO4 BY WRAPPPING THE FOLLOWING PATTERN: 
A 1 IN A FIELD OF O'S; AO IN A FIELD OF 1'S 


WHEN THE DATA IS WRITTEN TO THE TSDB LO BYTE,THE DATA IS 
SENT TO THE TSO4, VIA THE SERIAL LINE, WHERE IT IS WRAPPED 


AROUND BACK OVER THE SERIAL LINE TO THE TS11. THE DATA THEN 
APPEARS IN THE TSBA LO AND TSSR LO BYTES. 
R4 CONTAINS THE EXPECTED TSBA RESULTS AND THE 
EXPECTED TSSR RESULTS. 
BGNTST 
MOV #200 ,R4 sINIT THE DATA, 
sREPEAT FOLLOWING UNTIL DATA ALL SHIFTED 
CLR aTSSR 
CALL. WAITSR 
JSR 
BIT @7S.SSR,@TSSR 
BEQ T2SHF T 
BGNSUB 
TRAP 
MOVB R4,aTSOB sSEN DATA. 
DELAY 10. sLu TO SUPERVISOR, WAIT 
MOV 
.- WORD 
MOV 
. WORD 
DEC 
BNE 
c 
BNE 
MOV @TSBA, TEMP1 sSAVE TSBA. 
IFB TEMP1 NE R4& THEN 
CMPB 
BEQ 
ERRDF 5,WRPER3,WRAPRO 
TRAP 
. WORD 
. WORD 
. WORD 
CALL OROPU 
JSR 
ENDIF 
501258: 
MOV aTSSR, TEMP2 ;SAVE TSSR. 
IFB® TEMP2 NE R4& THEN 
CmMPB 
BEG 
ERRDF 6,WRPER3, WRAPRS 
TRAP 


SEQ Olle 


PC, WAITS 


Cs6SUB 


1 MSEC. 
#10. ,CPC 


° 
LsOL.r,(P 
9) 

-6(PC) 
.-4 
-22(C) 
.-20 
TEMP1,R4 
50125$ 
CSEROF 

5 


WRPERS 
WRAPRO 


PC. DROPL 


TEMP RS 
SOlLe$ 


CSEROF 
6 
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030736 
030740 
030740 
030744 
030744 
030744 
030744 
030744 
030746 
030746 
030752 
030756 


030769 
030760 
030760 


003017 
006456 


004737 


104403 
004737 


120427 
001313 


104401 
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014654 


016104 
000377 
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L10042: 


_ J2SHFT: 


L10041: 


JI 


CALL OROPU 


ENDIF 


ENDSUB 


CALL 
CMPB 
BNE 
-EVEN 
ENDTST 


R4,0377 
T2WRAP 


SHWRAP 


50126: 


. WORD 
. WORD 


JSR 


TRAP 
JSR 


TRAP 


SEG 0113 


WRPERS 
WRAPRS 


PC DROP 


CSESUB 
PC, SHWRA 


CseTs? 
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030762 
030762 


030762 
030762 


031024 


031026 
031026 
031026 
031030 
031030 
031034 
031034 
031042 
031044 
031044 
031046 
031050 
031052 
031054 
031054 
031060 
031060 
031060 
031060 
031066 
031070 
031070 
031072 
031074 
031076 
031100 


001006 


104402 
004737 


032777 
001406 


001406 


003051 
010532 


002437 
151230 
014702 


002000 151216 


014654 


016032 
002000 151162 


014654 


151134 002276 
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IK9 


SEQ 0114 


-SBTTL TEST 3: SET TSO4 CHARACTERISTIC VERIFICATION. 


THE FUNCTION OF THIS TEST IS TO ISSUE A “SET CHARACTERISTIC” COMMAND 
TO TELt. THE TSO4 WHERE IN CORE THE MESSAGE PACKET RESIDES. 


L10044; 


T3.2: 


BGNTST 


BGNSUB 


CLRB CTLFLG 

CLR a@TSsR 

JSR PC,WAITSR 

IF #TS.NBA NOTSETIN @TSSR THEN 


ERROF 20,SCHERR,SCHER1 


CALL DROPU 
ENDIF 
ENDSUB 


BGNSUB 


CALL SCHE xE 
IF #TS.NBA SETIN @TSSR THEN 


ERRDF 21,SCHERR,SCHER2 


CALL OROPU 
ENDIF 
If @TSBA NE #MSGEND THEN 


ERRDF 22,SCHERR,SCHERS 


CALL DROPU 


TRAP C$BSUB 
sINIT 1S11-TSO4 
sNBA SHOULD BE SET SINCE A COMD 
BIT @TS.NBA, 
BNE 50127$ 


sWAS ISSUED WITHOUT SET CHAR ISSUED FIRS 
TRAP CSEROF 


-WORD 20 
~ WORD SCHERR 
WORD SCHER1 
;IF NBA NOTSET, THEN CALL ERROR, DROP UN 
JSR PC .OROPU 
50127$: 
TRAP CsESUB 
TRAP CsBSUB 
JSR PC. SCHEX 
BIT #TS.NBA, 
BEQ 50130$ 
TRAP CSERDOF 
. WORD 2l 
WORD SCHERR 
WORD SCHER2 
JSR PC ,CROPU 
501308: 
CMP aTsBA, #M 
BEQ 50131$ 
TRAP CSERDF 
WORD 22 


“wORD  SCHERR 
"WORD SCHER3 
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031100 
031104 
031104 
031104 
031104 
031112 
031114 
031122 
031124 
031124 
031124 
031126 
031130 
031132 
031134 
031134 
031140 
031140 
031140 
031140 
031144 
031150 
031150 
031152 
031154 
031156 
031160 
031160 
031162 
031164 
031170 
031172 
031172 
031176 
031176 
031200 
031202 
031204 
031204 
031206 
031210 
031212 
031214 
031214 
031214 
031214 
031216 
031220 
031222 
031224 
031224 
031226 
031226 
031226 
031234 
031236 
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004737 


023727 


003051 
010532 


004737 


017701 
042701 


010146 
003403 
021627 
003402 


012716 


032777 
001004 
032737 


014654 
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002260 177777 
002262 177777 


014654 


151060 
177717 


000003 


020000 150770 
020000 002272 
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ENDIF 
50131$: 
IF MSGPKT EQ #177777 OR MSGDFL EQ #177777 THEN 
50132$: 
ERRDF 23,SCHERR, SCHERS 
CALL DROPU 
ENDIF 
50133$: 
LET R1 := @TSSR CLR.BY #FCMASK 
LET R1 := R1 SHIFT -4 
SELECT R1 OF 3 VERIFY 
50134$: 
50135$: 
501365: 
CASE 1 
50142$: 


ERRDF 24,SCHERR,SCHER4S 


CASE 2 


141$: 


50 
IF #TS.SPE SETIN @TSSR OR #BPE SETIN XSTAT2 THEN 


SEQ 0115 


PC ,DROPU 


MSGPKT , # 
50132$ 
MSGDFL ,# 
50133$ 


CSEROF 
23 

SCHERR 
SCHERS 


PC,.OROPU 


aTssR,R1i 
@F CMASK, 


R1, -(SP) 
50134$ 
(SP), #3 
50135$ 


24,(SP) 
CSP) 


PC.CSP) 
ac SP )+,P 


CSERDOF 
24 


SCHERR 
SCHER4S 


S0137$ 
#TS.SPE, 


50143$ 
“BPE ,XST 
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031244 
031246 


003051 
010772 


000415 


032737 
001405 


000404 


104455 
000034 


003051 
014116 


104403 


012700 
104441 


105037 
052737 
012777 
004737 
105737 
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040000 


000000 


002437 
000200 
002240 
014702 
002437 
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002272 


002240 
150640 


14:40 PAGE 
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M9 


118 


SET TSO4 CHARACTERISTIC VERIFICATION. 


10045: 


ERROF 25, SCHERR , SCHERS 


ELSE 


IF #SIP SETIN XSTAT2 THEN 


ERRDF 26,SCHERR,SCHER6 


ELSE 


ERRDF 27,SCHERR,SCHER7 


ENDIF 
ENDIF 
CASE 3 


ERRDF 28,SCHERR,SCHERO 


ENDSELECT 
ENDSUB 


SETPRI #PRIOO 


LET CTLFLG :B= #0 

LET SCHPKT := SCHPKT SET.BY #IE.C 
LET @TSOB := #SCHPKT 

CALL WAITSR 

IFB CTLFLG EQ #0 THEN 


50143$: 


50144$: 


50146$: 


50147$: 
50145$: 


50140: 


50137$: 


SEQ 0116 
50144$ 


CSEROF 
25 


SCHERR 
SCHERS 


50145$ 
#SIP,XxST 
50146$ 
CSERDF 
26 


SCHERR 
SCHER6 


50147$ 


CSEROF 
7 


2 
SCHERR 
SCHER7 


50137$ 


CSERDF 


28 
SCHERR 
SCHERO 


CSESUB 


#PRIOO,.R 
C$SPRI 


CTLFLG 
#TE.C.SC 
#SCHPKT, 
PC WAITS 
CTLFLG 
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CZTSIc.P11 


031430 


031432 
031432 
031440 


031446 
031446 
031450 


031452 
031452 
031452 


013737 
042737 


104432 
000002 


104401 


005650 
000001 


000340 


002272 
177400 


002240 


002424 
002424 


110043; 


N9 
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NE 
ERRDF #31,NINTM . 
TRAP 
. WORD 
. WORD 
PRINTB #IOBRD . 
MOV 
MOV 
MOV 
TRAP 
ENDIF ree 
50150$: . 
LET SCHPKT := SCHPKT CLR.BY @IE.C 
SETPRI #PRIO7 = 
MOV 
TRAP 
LET TS4CL := MSGPKT+MS$xS2 CLR.BY #177400 ;SAVE MICRO-CODE REV 
MOV 
BIC 
EXIT TST 
TRAP 
. WORD 
.EVEN 
ENDTST 
TRAP 


SEQ 0117 


50150$ 


CSERDF 
31 
NINTM 
i) 


, TE .C.SC 


oPRIO7.R 
CsSPRI 


LEVEL. 


MSGPKT «M 
#177400, 


CseExIT 
L10043.-. 


Csers? 
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C2TSIc.Pil 


4739 
4740 
4741 
4742 
4a7as 
4744 
4745 
4746 
4747 


09. 
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-SBTTL TEST 4: TRACK INACTIVE/ACTIVE TEST. 


sTESTS 4 - 7 PERFORM DATA WRAPS ON THE P.E. READ FORMATTER 

1BOARDS. COMMUNICATION BETWEEN THE PDOP1i AND TSO4 OCCURS BY USING 

sTHE DIA (DIAGNOSTIC) COMMAND WHICH SENDS A COPY OF THE DIABLK TABLE, 
sRESIDING IN CORE, TO THE TSO4 CONTROLLER. THE FORMAT OF THE DIABLK IS 
sSHOWN IN THE FOLLOWING TABLE. NOTE THAT THE TABLE IS FILLED IN REVERSE 
sORDER, THAT IS, THE LAST LOGICAL ENTRY OF THE TABLE IS LABELED DIABLK, 
1WHILE THE FIRST LOGICAL ENTRY OF THE TABLE IS LABELED DIABLK-DIAEXT, WHERE 
sDIAEXT IS THE LENGTH (EXTENT) OF THE TABLE IN BYTES. 


sWHEN THE DIA COMMAND IS EXECUTED, THE DIABLK IS LOADED ONTO THE TS04 STACK 
sWITH THE FIRST LOGICAL ENTRY AT THE TOP OF THE STACK, AS SHOWN BELOW. 

sTHE TSO4 THEN JUMPS TO THE P.E. WRAP TASK, IN ROM, WHERE THE FUNCTION IS 
sEXECUTCD USING THE REMAINING STACK ENTRIES AS ARGUMENTS. 


DIABLK+DIAEXT: 1504 PE WRAP TASK ADOR LO 
TSO4 PE WRAP TASK ADOR HI 

READ CONTROL CROCTLO) 

has CONTROL (FMCTLO) 


3 

3 

3 

a 

+ 

é 

Hy DATA 

3 CONTROL ( TOSCcO) 
3 DATA 

3 CONTROL (TOsco) 
3 DATA 

8 CONTROL (IOsco) 
: DATA 

3 CONTROL (10sco) 
b DATA 

3 CONTROL. (10Sco) 
3 DATA 

3 DIABLK; CONTROL (10sco) 


sTEST 4 CHECKS THAT THE TRACK ACTIVE FLOP CAN SET AND CLEAR 

3IN NRZI MODE FOR ALL CHANNELS. IF THE DATA DOES NOT MAKE A TRANSITION 
sWHEN THE WRITE FLAG IS UP, THE TRACK ACTIVE FLOP WILL CLEAR. 

sMOWEVER, IT WILt SET IF THERE IS A DATA TRANSITION WHILE THE 

sWRITE FLAG IS UP, 


SEQ 9118 


C10 
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4782 031454 BGNTST 
4783 031454 T4:: 
47a4a 
4785 031454 CALL SCHE XE :SET CHAR 
4786 031454 004737 016032 JSR PC, SCHEx 
478” 031460 CALL WAITMT 
sree 031460 004737 015260 JSR PC,WAITM 
4790 Po 3 THIS SUBTEST FORCES THE TRACK ACTIVE TO CLEAR Br WRITING 
4791 3 ALL O'S DATA, THE PATTERN IS AS FOLLOWS FOR EACH CHANNEL: 
4792 ; 
4793 : DATA: 
4793 ; WRIFLG: 011100 
4795 3 TRACK ACTIVE: SHOULD BE O FOR ALL TRACKS 
4? 
4797 s INITIALIZAITON 
4798 
47 031464 BGNSUB 
4800 031464 T4.1: 
reat 031464 104402 TRAP Cs6Su8 
4802 
4803 031466 004737 016240 JSR PC, ,PEINIT :GO LOAD DIABLK INDEX AND TSO4 TASK ADDR 
aon 031472 112745 000001 MOVB OFC.NRZ, -C(RS) sSET NRZ1 MODE IN FMT CNTRL. 
4 
oat sSETUP DATA € CONTROL WORDS IN OIABLK. 
4808 031476 005003 CLR R3 sSETUP DATA FOR WORD 1 
4809 031500 012704 000040 MOV @IS.NRZ,R4 sSETUP CONTROL WORD 1 
4810 031504 004737 015712 JSR PC, TALOAD sLOAD IT. 
4811 031510 012704 000044 MOV @IS.NRZ!IS.WRFE RG ;SET WRITE FLAG IN CONTROL WORD 2 
4812 031514 004737 015712 JSR PC, TAL.OAD sLOAD DATA € CNTRL WORD 2 
4813 031520 004737 015712 JSR PC, TALOAD sLOAD DATA € CNTRL WORD 3 
4814 031524 004737 015712 JSR PC, TALOAD sLOAD DATA € CNTRL WURD 4. 
4815 031530 012704 000040 MOV @IS.NRZ,R4 ;SETUP CNTRL WORD 5S 
4816 031534 004737 015712 JSR PC, TALOAD sLOAD DATA € CNIRL WORD 5S 
4817 031540 004737 015712 JSR PC, TALOAD sLOAD DATA € CNTRL WORD 6. 
one 031544 004737 016006 JSR PC ,.DIAEXE sEXECUTE THE CMD. 
oat sNOW CHECK FOR ERRORS. 
4822 031550 005037 002436 CLR ERRFLG sCLR THE ERROR FLAG. 
4823 031554 005037 002342 CLR EXTRAC 7 TRACK ACTIVE O FOR ALL CHAN 
4824 031560 004737 016130 JSR PC, TKACER sCHECK FOR ERRORS. 
4825 031564 LET ACTRK1 ;* ACTRAC 
4826 031564 013737 002360 002406 MOV ACTRAC,A 
4827 031572 IFB ERRFLG NE @O ANDB CMPFLG NE 00 THEN 
4828 031572 105737 002436 TsT8 ERRFLG 
4829 031576 001407 BEQ SOLS1$ 
4830 031600 105737 002212 TSsTB CMPFLG 
4831 031604 001404 BEQ 501518 
4832 031606 ERRHRD 7,TAER1,TAEM 
4833 031606 104456 TRAP CSERMRO 
4834 031610 000007 ~WORD ? 
4835 031612 003102 . WORD TAER: 
4836 031614 007002 . WORD TAEM 


4837 031616 ENDIF 


DLO 
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CZTSIC.Pil 09-APR-84 14:37 TEST 4; TRACK INACTIVE/ACTIVE TEST. SEQ 0120 
4838 031616 501518: 
4839 
4840 031616 ENOSUB 
4841 031616 L10047; 
oy | 031616 104403 TRAP CseSuB 
4844 sTHIS SUBTEST FORCES —— ACTIVE TO SET BY WRITING THE FOLLOWING 
4845 sPATTERN ON EACH CHANNEL 
4846 3 
4847 ; DATA: 110000 
4848 : WRTIFLG: 011100 
4849 ; TRACK ACTIVE: SHOULD BE 1 FOR ALL TRACKS. 
4850 
4851 031620 BGNSUB 
4852 031620 14.2: 
oe 031620 104402 TRAP Cs8SUB 
4033 : INITIALIZATION 
a : 
4857 031622 004737 016240 JSR PC PEINIT : 
aese 031626 112745 000001 MOVB OFC .NRZ,-(RS) sNRZI MODE 
4 
seco 3SET UP DATA € CNTRL WORDS IN DIABLK 
1 
4862 031632 012703 177777 MOV @-1,R3 sWORD 1 DATA 
4863 031636 012704 000040 MOV @IS.NRZ,RS sWORD 1 CONTROL 
£864 031642 004737 - 015712 JSR PC, TALOAD 3LOAD IT 
4865 031646 012704 000044 MOV @IS.NRZ!IS.WRF RO sWORD 2 CONTROL --wWRT FLAG SET 
4866 031652 004737 015712 JSR PC, TALOAD 3LOAD IT WORD 2 (DATA € CONTROL) 
4867 031656 005003 : CLR R3 sWORD 3 DATA 
4868 031660 004737 015712 JSR PC, TALOAD 3LOAD DATA & CNTRL - WORD 3 
4869 031664 004737 015712 JSR PC, TALOAD sLOAD DATA € CNTRL - WORD 4 
4870 031670 012704 000040 MOV @IS.NRZ,R4 3CLR WRITE FLAG IN WORD 5 
4871 031674 004737 015712 JSR PC, TALOAD sLOAD DATA € CNTRL WORD 5S 
4872 031700 004737 015712 JSR PC, TALOAD sLOAD DATA € CNTRL WORD 6 
ro th 031704 004737 016006 JSR PC ,DIAEXE 300 THE TSO4 WRAP. 
y+ th s;CHECK FOR ERRORS 
4877 031710 005037 002436 CLR ERRFLG ; INIT ERROR FLAG. 
4878 031714 012737 000777 002342 MOV @777,EXTRAC sSHOULD BE DATA. 
4879 031722 004737 016130 JSR PC, TKACER ;CHECK FOR ERRORS 
4880 031726 LET ACTRK2 ;:= COMP ACTRAC 
4881 031726 013737 002360 002410 MOV ACTRAC,A 
4882 031734 005137 002410 COM ACTRK2 
4883 031740 LET ACTRK2 := ACTRK2 CLR.BY 0177000 
4884 031740 042737 177000 002410 BIC #177000, 
4885 031746 IFB® ERRFLG NE @0 ANDB CMPFLG NE 00 THEN 
4886 031746 105737 002436 TSTB ERRFLG 
4887 031752 001407 BEQ 50152$ 
4888 071754 105737 002212 TST8 CMPFLG 
4889 031760 001404 BEQ S01S2$ 
4890 031762 ERRHRD 9,TAER2,TAEM 
4891 031762 104456 TRAP CSERHRD 
4892 031764 000011 .wORD 9 
4893 031766 003152 WORD TAERD 
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031770 
031772 
031772 


031772 
031772 
031772 


031774 
031774 
031774 


031776 
032002 


032126 
032130 


007002 


104403 


104402 


004737 
112745 


012703 
012704 
004737 
012704 
004737 


013737 
105737 
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016240 
000001 


177777 
000040 
015712 
000044 
015712 
015712 
015712 
000040 
015712 


015712 
016006 


002436 
002342 
016130 
002360 
002436 


002212 
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002412 


14:40 


L10050: 


sTHIS SUBTEST FORCES THE TRACK ACTIVE TO CLEAR BY WRITING THE FOLLOWING 


E10 
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. WORD 
50152$: 


ENDIF 


ENOSUB 
TRAP 


sPATTERN ON EACH CHANNEL : 


14,3: 


DATA: 111111 
WRTFLG: 011100 
TRACK ACTIVE: SHOULD BE O FOR ALL TRACKS 
BGNSUB 
TRAP 
INITIALIZATION 
JSR PC,PEINIT 
MOVB OFC .NRZ,-CRS) sNRZI MODE. 
3SET UP DATA AND CONTROL WORDS IN D.ABLK. 
MOV @-1,R3 3SET UP DATA. 
MOV @IS.NRZ,R4 3SET UP CNTRL WORD. 
JSR PC, TALOAD sLOAD DATA € CNTRL WORD 1 
MOV @IS.NRZ!IS.WRF RS sWORD 2 CONTRL 
JSR PC, TALOAD sLOAD DATA - CNTRL WORD 2 
JSR PC, TALOAD sLOAD DATA - CNTRL WORD 3 
JSR PC, TALOAD sLOAD DATA - CNTRL WORD 4 
MOV @IS.NRZ,R4 sCNTRL WORD 5S 
JSR PC, TALOAD sLOAD DATA - CNTRL WORD S 
JSR PC, TALOAD sLOAD DATA - CNTRL WORD 6 
JSR PC ,OIAEXE 3:00 THE WRAP. 
sCHECK FOR ERRORS 
CLR ERRFLG sINIT ERROR FLAG. 
CLR EXTRAC sSHOULD BE DATA=0. 
JSR PC, TKACER sCHECK FOR ERRORS 
LET ACTRK3S := ACTRAC 
MOV 
IFB ERRFLG NE #0 ANDB CMPFLG NE 90 THEN reve 
BEQ 
TSTB 
BEQ 
ERRHRD 8, TAER1,TAEM 
TRAP 
WORD 
. WORD 
. WORD 


ENDIF 


SEQ 0121 
TAEM 


CSESUB 


Cs8SU8 


ACTRAC,A 


ERRFLG 
S0153$ 
CMPFLG 
501538 


CSERMRD 
8 


TAERL 
TOEM 
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032130 


032130 
032130 
032130 


032132 
032132 
032132 


032134 
032142 
032146 
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104403 


104402 


012737 
004737 
112745 


013737 
005137 


042737 


105737 
001407 
105737 
001404 


104456 
000012 


14;37 


177777 
016240 
000001 


000040 
015712 
000044 
015712 
177777 


015712 
015712 
000040 


015712 


015712 
016006 


002436 
000777 
016130 


002360 
002414 


177000 
002436 
002212 


09 -APR-84 14:40 P 


002440 


002342 


002414 


002414 
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L10051;: 


F10 


50153$: 
ENDSUB 
TRAP CsESuB 


sTHIS SUBTEST FORCES THE TRACK ACTIVE FLOP TO SET BY WRITING THE FOLLOWING 
sPATTERN ON EACH CHANNEL : 


14,4; 


DATA: 001111 

WRTFLG: 011100 

TRACK ACTIVE: SHOULD BE 1 FOR ALL TRACKS. 

BGNSUB 
TRAP CsBSUB 

INITIALIZATION. 

MOV @-1,T4S4 ;BTL SET THE TEST 4 SUBTEST 4 FLAG 

JSR PC, ,PEINIT 

MOVB OFC .NRZ, -(RS) sNRZI MODE 

;SET UP DATA AND CNTRL WORD IN DOIABLK. 

CLR R3 sWORD 1 DATA 

MOV @IS.NRZ,R4 sWORD 1 CNTRL - WRITE FLAG CLR 

JSR PC, TALOAD sLOAD DATA € CNTRL WORD 1 

MOV @IS.NAZ!IS. WRF ,R4 sWORD 2 CNTRL-SET WRT FLAG 

JSR PC, TALOAD sLOAD DATA € CNTRL WORD 2 

MOV @-1,R3 sWORD 3 DATA-00 A DATA TRANSITION 

JSR PC, TALOAD a: DATA € CNTRL WORD : 

JSR PC, TALOAD LOAD DATA € CNTRL WORD 4 

MOV @IS.NRZ,R4 CCNTRL WORD 5 - CLR WRITE FLAG. 

JSR PC, TALOAD sLOAD DATA € CNTRL WORD 5S 

JSR PC, TALOAD sLOAD DATA € CNTRL WORD 6 

JSR PC ,DIAEXE ;GO WRAP THE DATA, 

sCHECK FOR ERRORS. 

CLR ERRFLG sINIT ERROR FLAG. 

MOV 0777, EXTRAC s TRACK ACTIVE SHOULD BE SET FOR ALi TRAC 

JSR PC. TKACER sCHECK FOR ERRORS. 

LET ACTRK4 ;= COMP ACTRAC 
MOV ACTRAC,A 
CoM ACTRK4 

LET ACTRK4 ;:= ACTRK4 CLR.BY #177000 
BIC #177000, 

IFB ERRFLG NE #0 ANDB CMPFLG NE #0 THEN 
TSTB ERRFLG 
BEQ S0154$ 
TSTB CMPFLG 
BEQ SOLS4$ 


ERRHRD 10, TAER2, TAEM 
TRAP CSERMRD 
. WORD lo 


SEQ Ol22 


G1O 
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5006 032306 003152 «WORD TAER2 
5007 032310 007002 -WORD TAEM 
5008 032312 ENDIF 

5009 032312 50154$s: 


5011 032312 ENDSUB 
SOle 032312 L1005e: 
5013 032312 104403 TRAP C5ESUB 


5016 032314 LET RL := ACTRK1 OR ACTRK2 OR ACTRKS 

S017 032314 013701 002406 MOV ACTRK1,R 
5018 032320 053701 002410 BIS ACTRK2,R 
5019 032324 053701 002412 BIS ACTRK3,R 
5020 032330 LET R1 := R1 OR ACTRK4 

5021 032330 053701 002414 BIS ACTRK4,R 
S022 032334 IF R1 NE #0 THEN 

SG23 032334 005701 TsT R1 

5024 032336 001406 BEG 50155$ 
S025 032340 ERRHRD 11, TAERR 

5026 032340 104456 TRAP CSERHRD 
5027 032342 000013 «WORD 11 

5028 032344 003222 «WORD TAERR 
5029 032346 000000 -WORD O 

S030 032350 CALL MSORT1 

5031 032350 004737 017640 JSR PC .MSORT 
5032 032354 ENDIF 

5033 032354 501558: 


5035 -EVEN 
5037 032354 005037 002440 CLR T4S4 :BTL CLEAR THE TEST 4 SUBTEST 4 FLAG 
5039 032360 ENDTST 


5040 032360 L10046: 
5041 032360 104401 TRAP CserTsrT 


H1O 
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SEQ 0124 


032414 
032416 


032416 
032416 
032416 


032420 
032424 
032430 
032432 
032436 


032442 
032446 
032452 
032452 
032456 
032460 
032464 
032466 
032466 
032470 


004737 
004737 


005001 
000402 


062701 


020127 
003003 


005061 
000770 


105737 
001407 
105737 
001404 


10445€ 
000014 


016032 
015260 


000002 
000012 


002372 


002416 
000777 


016212 
016006 


0024 36 
016570 


002436 
002212 


sTEST S WRAPS A DATA PATTERN TO CHECK EACH 
; TRACK FOR BIT PICKUPS AND DROPS. 


; 
sREGISTER USAGE IS AS FOLLOWS: 
R2=PREAMBLE DATA FOR TRACKS 1-9 IN BIT POSITION 0-8. 


TS:: 


VS.i% 


sTHIS SUBTEST WRAPS AN ALL O'S PATTERN, 


R3=*1ST BYTE OF DATA FOR TRACKS 1-9 IN BIT POSITION 0-8. 


THIS 


IS THE DATA OF INTEREST AFTER EXECUTING THE TSO4 DIA COMMAND. 
R4=2ND BYTE OF DATA FOR TRACKS 1-9 IN BIT POSITION 0-8. 


BGNTST 


CALL SCHE XE 
CALL WAITMT 
INCR R1 FROM #0 TO #12 Br #2 


LET ORDTBL(R1) 
ENO INC 


:= 60 


BGNSUB 


OTKION 
@777,R2 
CLR R3 
PC,DATBLD 
PC ,.DIAEXE 


sCHECK FOR ERRORS. 


CLR ERRFLG 
JSR PC ,PEERCK 


3SET CHAR 
JSR 


JSR 


CLR 
BR 


ADO 
CMP 


501578: 
50156$: 


6GT 
sCLEAR 6 LOC OF ORED WRAP REG TABLE 


CLR 


BR 
50160$: 
TRAP 


:CLR DEAD TRK REG. 

;SETUP THE PREAMBLE DATA. 
sBYTE 2 DATA. ALi O'S. 
sBUILD THE DIAG BLK. 
sEXECUTE IT. 


sINIT ERROR FLAG. 
sCHECK FOR ERRORS. 


IFB ERRFLG NE #0 ANDB CMPFLG NE 90 THEN 


ERRHRD 12,DATER,SKDAEM 


PC. SCHE x 
PC,WAITM 


R1,¢12 
50160$ 


ORDTBLC(R 
So0is7$ 


Cs8SU6 


ERRFLG 
SOle1s 
CMPFLG 
SClols 


CSERMRD 
12 


HARDWARE 
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TESTS 


032472 
032474 


032476 


032476 


032612 


MACITLI 30. 1046) 
09-APR 84 14:37 


003245 
00 726e 


104408 


104402 


005037 
012702 
012703 
004737 
004737 


005037 
004737 


105737 


002416 
000777 
000777 
016212 
016006 


002436 
016570 


0024 36 
002212 


ILO 


» 
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TEST S: P.E. DATA TEST, 


L10054; 


TS.2: 


ENOIF 


ENDSUB 


BGNSUB 


;THIS SUBTEST WRAPS AN ALL 1'S PATTERN. 


€ 
10055: 


15.3: 


CLR OTK IDN 


5016158: 


sCLR DEAD TRE ION REC. 


MOV 0777,R2 sLOAD PREAMBLE REG. 
MOV 0777,R3 ;BYTE 1 DATA, 

JSR PC ,.DATBLO sBUILD THE DIA BLK. 
JSR PC ,.DIAEXE sEXECUTE IT. 

;CHECK FOR ERRORS. 

CLR ERRFLG sINIT ERROR FLAG. 
JSR PC ,PEERCK sCHECK FOR ERRORS. 


IFB ERRFLG NE 90 ANDB CMPF.LG NE 80 THEN 


ERRHRD 1%,0ATER,SKDAEM 


BGNSUB 


;THIS SUBTEST RIPPLES A 1 IN A FIELD OF O'S, 


1$: 


CLR DTK ION sCLR DEAD TRK ION REG. 

MOV @777,R2 sSETUP THE PREAMBLE DATA IN R2 BITS 0-8. 
MOV 2400 ,R3 sSETUP 1ST BYTE OF DATA, 

CLR DTK ION sNO DEAD TRACKS DESIRED. 

JSR PC,DATBLD sBUILD THE DIAG BLOCK, 

JSR PC ,OIAE xt sEXECUTE THE DATA wRAP 


501628: 


. WORD 


TRAP 


TRAP 


TRAP 


TRAP 


SEQ O125 


DATER 
SKDAEM 


CsESUB 


Cs8S 68 


ERRFLG 
50162$ 
CMPFLG 
50162$ 
CSERMRD 
13 


DATER 
SKDAEM 


CsESuUs 


cs6s.8 
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032720 
032720 
032724 
032726 
032732 
032/34 
032734 
032736 
032740 
032742 
032744 
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005037 
004737 


105737 


000241 
006203 
103353 


104403 


104402 


005037 
012702 
012703 
004737 
004737 


005037 
004737 


105737 


002436 
016570 


0024 36 
002212 


002416 
000777 
000377 
016212 
016006 


002436 
016570 


002436 
002212 


J10 
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TEST 5: P.E€. DATA TEST. 


L10056: 


15.4: 


1$; 


sCHECK FOR ERRORS &€ REPORT IF ANY 


CLR ERRFLG s INIT ERROR FLAG. 
JSR PC ,PEERCK sCHECK FOR ERRORS 
IFB ERRFLG NE #0 ANDB CMPFLG NE #0 THEN 
TSsT8 
BEQ 
TSTB 
BEQ 
ERRHRD 14,DATER,SKDAEM 
‘ TRAP 
- WORD 
WORD 
. WORD 
ENDIF 
501635: 
;IF NOT DONE, SHIFT THE 1 AND DO IT AGAIN. 
cLC ;CLEAR THE CARRY BIT 
ASR R3 ;SHIFT THE DATA 
Bcc 1$ ;BRANCH IF THE SHIFTING ‘1' HASN’‘T 
— SHIFTED INTO THE CARRY POSITION 
rai 
ENDSUB 
TRAP 
BGNSUB 
TRAP 
;THIS SUBTEST RIPPLES A O IN A FIELD OF 1'S. 
CLR OTKION ;CLR DEAD TRK ION REG. 
MOV #777,R2 ;SETUP THE PREAMBLE aa IN R2 BITS 0-8. 
MOV 0377,R3 sSETUP 1ST BYTE OF DAT 
JSR PC ,.DATBLD sBUILD THE DIA BLK. 
JSR PC ,OIAEXE sEXECUTE THE DATA WRAP. 
;CHECK FOR ERRORS € REPORT IF ANY. 
CLR ERRFLG sINIT ERROR FLAG. 
JSR PC,PEERCK ;CHECK FOR ERRORS 
IFB® ERRFLG NE #0 ANDB CMPFLG NE #0 THEN 1STe 
BEQ 
TSsTB 
BEQ 
ERRHRD 15,0ATER,SKDAEM 
TRAP 
wORD 
wORD 
. WORD 


ENDIF 


SEG 0126 


CSERHRD 
14 


DATER 
SKDAEM 


CSESUB 


C$BSUB 


ERRFLG 
50164$ 
CMPFLG 
50164$ 


—— 


baTER 
SKDAEM 


KLO 
HAROWARE TESTS MACY11 oh ee O9-APR-84 14; a PAGE 129 : 
CZTSIC.P11 09-APR-84 14:37 TEST 5: P.E, DATA TEST. SEQ 0127 


asit 032744 501645: . 


5214 3IF NO’ DONE, SHIFT THE O AND DO IT AGAIN. 


5216 032744 052703 001000 BIS #BIT9,R3 sPREPARE FOR SHIFT. 

S217 032750 006203 ASR R3 sSHIFT THE DATA. HAS THE SHIFITNG 0 
5218 sREACHED THE CARRY BIT YET? 

5219 032752 103752 BCS 1$ sIF NOT, CONTINUE. 


S221 032754 ENDSUB 
S222 032754 L10057: 
S223 032754 104403 TRAP CsESUB 


S226 032756 LET R1 := ORORDY OR ORTRAC OR ORDATA 

S227 032756 013701 002372 MOV ORORDY ,R 
S228 032762 053701 002376 BIS ORTRAC,R 
S229 032766 053701 002400 BIS ORDATA,R 
5230 032772 LET R1 := R1 OR ORTROD 

S231 032772 053701 002402 BIS ORTROD,.R 
S232 032776 IF R1 NE #0 THEN 

S233 032776 005701 TST R1 

5234 033000 001406 BEQ 50165$ 
S235 033002 ERRHRD 30,DATER 

5236 033002 104456 TRAP CSERHRD 
S237 033004 000036 -WORD 30 

5238 033006 003245 -WORD ODATER 
5239 033010 000000 «WORD O 

5240 033012 CALL MSORT2 

3241 033012 004737 020334 JSR PC.MSORT 
5242 033016 ENDIF 

5243 033016 50165$: 


5245 033016 EXxIT TsT 
5246 033016 104432 TRAP CsExIT 
5247 033020 000002 «WORD L10053-. 
5248 -EVEN 


5250 033022 ENDTST 
S251 033022 L10053: 
S252 033022 104401 TRAP CsETST 
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033024 
033024 


033024 


033024 
033030 


033124 


033132 
033136 
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004737 
004737 


005001 
000402 


062701 


020127 
003003 


005061 
000770 


104402 


012737 


005037 
004737 


14:37 


016032 
015260 


000002 


000012 


002372 


177000 


002350 


L10 
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T 6: P.E. SKEW TEST 


-SBTTL TEST 6: P.E. SKEW TEST 


;THE NEXT TWO SUBTESTS SKEW THE DATA ON A TRACK By ONE BYTE WITH Sate, TO ALL 
;THE OTHER TRACKS. THAT IS, THE DATA IS ONE BYTE LATE ON THE ONE TRACK 

sEACH TRACK IS TESTED FOR SKEW IN THIS MANNER. REGISTER ASSIGNMENTS 

sARE AS FOLLOWS: 


Té:: 


T6.1: 


1%; 


R2=PREAMBLE DATA 

R3=BYTE 1 DATA CWITH THE EXCEPTION OF THE SKEWED TRACK. THAT 
TRACK CONTAINS PREAMBLE DATA) 

R4=BYTE 2 DATA (WITH THE EXCEPTION OF THE SKEWED TRACK. THAT 
TRACK CONTAINS BYTE 1 DATA) 


BGNTST 
CALL SCHE XE 
JSR PC, SCHEX 
CALL WAITMT 
JSR PC,WAITM 
INCR R1 FROM #0 TO #12 BY #2 
CLR R1 
BR 50166$ 
501675: 
ADD #2,R1 
50166$: 
CMP R1,#12 
BGT 50170$ 
LET ORDTBLC(R1) := #0 ;CLEAR 6 LOC OF ORED WRAP — TABLES 
CLR ORDTBLCR 
ENDINC 
BR 50167$ 
50170$: 
BGNSUB 


TRAP CsBSUB 


;THIS SUBTEST WRITES AN ALL 1'S PREAMBLE (SKEWED), AN ALL O'S 
sBYTE 1 DATA (SKEWED), AND AN ALL 1'S BYTE 2 DATA (SKEWED). 


CLR DTKION ;CLR DEAD TRK ION REG. 
MOV #377,R2 ;SET UP PREAMBLE DATA. START BY SKEWING TRK 9. 
JSR PC,PEINIT ;SET WRAP TASK ADOR IN DIABLK AND INIT INDEX. 
MOVB #FC.DAT!FC.vCO,-CRS) ;SET DATA € VCO MODE IN FORMAT CNTRL. 
MOV R2,R3 ;SETUP BYTE 1 DATA 
COM RS 320 
BIC #177000,R3 ;CLR GARBAGE BITS 
MOV R2,R4 : ;SETUP BYTE 2 DATA=1. 
JSR PC,PEDATA ;LOAD DATA IN OIABLK 
CLR EXDATA ;THE EXPECTED DESKEWED DATA IN EXDATA IS O 
MOV #777,EXODTR ;THE EXPECTED DESKEWED DATA IN EXODTR IS 

31 FOR EACH TRACK. 
CLR EX10TR ;THE EXPECTED DESKEWED DATA IN EXLDTR IS 0 
JSR PC, ,OIAEXE sEXECUTE THE DATA WRAP. 


SEQ 0128 


HARDWARE TESTS MACY11 30(1046) 09-APR-84 
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033142 
033146 
033152 
033152 
033156 
033160 
033164 
033166 
0335166 
033170 
033172 
033174 
033176 
033176 


033176 
033202 


033210 
033210 
033210 


033212 
033216 


033272 


033276 
033302 
033306 
033306 
033312 
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005037 
004737 


105737 


052702 
006202 


103732 
104403 


104402 


005037 
004737 


105737 
001407 


14:37 


002436 
016570 


002436 
002212 


001000 


002416 
000377 


002436 
016570 


002436 


002344 
002340 


TEST 


M1O 
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P.E. SKEW TEST 


6: 


L10061: 


T6.2: 


1$; 


sCHECK FOR ERRORS AND REPORT IF ANY 


CLR ERRFLG sINIT ERROR FLAG. 

JSR PC ,PEERCK ;CHECK FOR ERRORS 

IFB ERRFLG NE #0 ANDB CMPFLG NE #0 THEN rst9 
BEQ 
TSTB 
BEQ 

ERRHRD 16,SKEWER,SKDAEM 

TRAP 
- WORD 
. WORD 
. WORD 


ENDIF 
50171$: 


;SHIFT THE SKEW TO THE NEXT TRACK AND REPEAT. 
BIS #BIT9,R2 ;PREPARE FOR SHIFT OF SKEWED TRK. 


ASR R2 ;SHIFT THE PREAMBLE DATA. HAVE ALL THE 
; TRACKS BEEN SKEWED? 
BCS 1$ ;BR IF NOT. CONTINUE. 
ENDSUB 
TRAP 
BGNSUB 
TRAP 


;THIS SUBTEST SENDS AN ALL 1‘S PREAMBLE (SKEWED), AN ALL 1'S 
;BYTE 1 DATA (SKEWED) AND AN ALL O'S BYTE 2 DATA (SKEWED). 


SEQ 0129 


CSERHRD 
16 
SKEWER 
SKDAEM 


CsESuUB 


CsBSUB 


CLR DTKION ;CLR DEAD TRK IDEN REG. 
MOV #377,Re2 ;SET UP PREAMBLE DATA. START WITH CHAN 9 SKEWED 
JSR PC,PEINIT 3SET WRAP TASK ADR IN DIABLK & INIT INDEX. 


MOVB @FC.DAT!IFC.VCO,-CRS) ;SET DATA € VCO MODE IN FMT CNTRL. 


MOV #777,R3 ;SETUP BYTE 1 DATA=1 

MOV R2,R4 ;SETUP BYTE 2 DATA 

COM R4 370 

BIC #177000,R4 ;CLR GARBAGE BITS 

JSR PC,PEDATA ;LOAD THE DATA IN DIABLK 

MOV #777,EXDATA ;THE EXPECTED DESKEWED DATA IS 1 

CLR EXODTR ;THE EXPECTED "O OR DEAD” DATA=1 FOR EACH TRACK. 
MOV #777,EX10TR ;THE EXPECTED DESKEWED “1 OR DEAD” DATA=1 FOR AL 
JSR PC ,OIAEXE sEXECUTE THE WRAP. 

;CHECK FOR ERRORS 

CLR ERRFLG s INIT ERROR FLAG. 

JSR PC ,PEERCK ;CHECK FOR ERRORS. 


IFB ERRFLG NE #0 ANDB CMPFLG NE #0 THEN son 
BEQ 


ERRFLG 
SO0172$ 


HARDWARE 
CZTSIC.P1i1 


N10 
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09-APR-84 14:37 TEST 6: P.E. SKEW TEST 
033314 105737 002212 TSTB 
033320 001404 BEQ 
033322 ERRHRD 16,SKEWER,SKDAEM 
033322 104456 TRAP 
033324 000020 . WORD 
033326 003272 . WORD 
033330 007262 . WORD 
033332 ENDIF 
033332 50172$: 

sSHIFT THE SKEW TO THE NEXT TRACK AND REPEAT. 
033332 052702 001000 BIS #BIT9,R2 sPREPARE TO SHIFT SKEWED TRK. 
033336 006202 ASR R2 ;SKEW THE NEXT TRACK. ARE WE DONE 
033340 103730 BCS 1$ ;BR IF NOT. 
033342 ENOSUB 
033342 L10062: 
033342 104403 TRAP 
033344 LET R1 := ORORDY OR ORTRAC OR ORDATA 
033344 013701 002372 MOV 
033350 053701 002376 BIS 
033354 053701 002400 BIS 
033360 LET R1 := R1 OR ORTRDD 
033360 053701 002402 BIS 
033364 IF R1 NE #0 THEN 
033364 005701 TsT 
033366 001406 BEQ 
033370 ERRHRD 16, SKEWER 
033370 104456 TRAP 
033372 000020 . WORD 
033374 003272 . WORD 
033376 - WORD 
033400 CALL MSORT2 
033400 004737 020334 JSR 
033404 ENDIF 
033404 50173$: 
-EVEN 

033404 ENDTST 
033404 L10060: 
033404 104401 TRAP 


vET? 


SEQ 01350 


CMPFLG 
50172$ 


CSERHRD 


16 
SKEWER 
SKDAEM 


CsESuB 


OROROY .R 
ORTRAC,.R 
ORDATA,R 


ORTROOD.R 

R1 

50173$ 

CSERHRD 
6 


1 
SKEWER 
ce) 


PC .MSORT 


CsETST 
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033504 
033510 
033514 


004737 
004737 


005001 
000402 


062701 


020127 
003003 


005061 
000770 


104402 


012702 
012703 
005004 
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016032 
015260 


0024 36 
016570 


Bil 
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TEST 7: P.E. DEAD TRACK TEST. SEQ 0131 
-SBTTL TEST 7: P.E. DEAD TRACK TEST. 


sTEST 7 CHECKS THE DEAD TRACK LOGIC BY RIPPLING A DEAD TRACK THRU 
3A FIELD OF LIVE TRACKS AND ONE LIVE TRACK THRU A FIELD OF DEAD 
sTRACKS, ADDITIONALLY, EACH SUBTEST WILL SEND 1°S DATA AND 0'S 
sDATA IN ORDER TO TEST THE 1'S OR DEAD REGISTER AND THE 

30'S OR DEAD REGISTER, 


sREGISTER USAGE: 


: R2*PREAMBLE ALL 1'S CHARACTER 
3 R3=1ST DATA BYTE (BITS 0-8) 
3 R4=2ND DATA BYTE (BITS 0-8) 
; DTKION*DEAD TRACK DEFINED IN BITS 0-8 (O=LIVE TRK; 1-«DEAD TRK. ) 
BGNTST 
T7:: 
CALL SCHE XE 
JSR PC, SCHE x 
CALL WAITMT 
JSR PC, WAITM 
INCR R1 FROM @0 TO 012 BY @2 
CLR R1 
aR 50174$ 
501758: 
@2,R1 
501748: 
CMP R1,%12 
BGT 501768 
LET ORDTBL(R1) :* 00 sCLEAR 6 LOC OF ORED WRAP REG TABLES 
CLR ORDTBLC(R 
ENOINC 
BR 5017538 
501768: 
BGNSUB 
T7.1: 
TRAP Cs38S5U8 
sTHIS SUBTEST RIPPLES A DEAD TRACK IN A FIELD OF LIVE TRACKS. 
MOV 9777,R2 sPREAMBLE 
MOV 0777,R3 2BrYTE 1 OATA, 
CLR R4 sBYTE 2 DATA, 
1$;: MOV @400 ,.OTKIDON sSETUP TO SHIFT 1 DEAD TRACK. 
2s: JSR PC, PEINIT 3SET DATA AND vCO MODE IN FMT CONTROL. 
MOVB OFC .DATIFC.vCO, (RS) 
JSR PC ,PEDATA sLOAD DATA IN DIABLK AND CALCULATE EXPEC 
JSR PC ,OIAEXE sEXECUTE IT. 
sCHECK FOR ERRORS AND REPORT IF ANY, 
CLR ERRFLG sINIT ERROR FLAG, 
JSR PC ,PEERCK sCHECK FOR ERRORS, 


IFB ERRFLG NE 0 ANDB CMPFLG NE @O THEN 


HARDWARE 


C2TSsIc 


033514 
033520 


033570 
033570 
033570 


033572 


033572 
033572 


033574 


105737 
001407 


104402 


012702 
012703 
005004 


105737 
001407 
105737 


0024 36 
002212 


002416 


000777 


002436 
016570 


0024 36 
002212 


4$: 


{ 10064; 


T7.2: 


Ci 
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ERRHRD 17,D0D0ER,SKDAEM 


ENOIF 


SEQ 0132 


TSTB ERRFLG 
BEQ 50177$ 
TST8 CMPFLG 
BEQ 50177$ 


TRAP CSERHRD 
17 


. WORD 
-WORD ODDER 
«WORD SKDAEM 


501778: 


sSHIFT THE DEAD TRACK AND REPEAT, 


CLC 

ASR OTKION 

BCC es : 
sCHANGE THE DATA AND REPEAT, 
TSTB R3 

BEQ 4s 

CLR R3 

MOV 0777,R4 

BR 1$ 

EXIT SUB 

ENOSUB 

BGNSUB 


sCLR CARRY TO PREPARE FOR SHIFT. 
;SHIFT DEAD TRACK 
sBR IF ALL TRACKS NOT KILLED rer. 


3s DONE ? 

3;6R IF SO. 

sBYTE 1 DATA, 

sBYTE 2 DATA, 

sREPEAT TEST WITH COMPLEMENTED DATA. 


TRAP CSExIT 
-WORD L10064-. 


TRAP CSESUB 


TRAP CsB8SUB 


sTHIS SUBTEST RIPPLES A LIVE TRACK IN A F°ELD OF DEAD TRACKS. 


MOV 0777,R2 

MOV 0777,R3 

CLR R4 

MOV 0377, OTKION 
JSR PC PEINIT 
MOvVB OFC .DATIFC. VCO, -(RS) 
JSR PC.PEDATA 
JSR PC ,OTAEXE 
sCHECK FOR ERRORS. 
CLR ERRFLG 

JSR PC ,PEERCK 


sBYTE 2 DATA, 

sSETUP TO SHIFT 1 LIVE TRACK, 

sSET WRAP TSK ADR AND DIABLK INDEX. 

sSET DATA AND vCO MODE IN FMT CNTRL. 
629 Sas AND GENERATE EXPECTED DATA, 
6 . 


sINIT ERROR FLAG. 
sCHECK FOR ERRORS. 


IFB ERRFLG NE @0 ANDB CMPFLG NE 00 THEN 


TSTB ERRFLG 


Dil 


CoTste PL 09 APR ba e489” naa Est 7; B.e. Bead PRACK TEST. 


033670 
033676 
033702 


033704 
033706 
033710 
033712 
033716 


033720 
033720 
033722 


033724 
033724 
033724 


033726 
033726 
033732 
033736 
033742 
033742 
033746 
033746 
033750 
033752 
033752 
033754 
033756 
033760 
033762 
033762 
033766 
033766 


033766 
033766 
033766 


001404 


104456 
000021 
003312 
007262 


052737 
006237 
103744 


105703 
001404 


104403 


013701 
053701 
053701 


053701 


104401 


001000 002416 
002416 


000777 


002372 
002376 
002400 


002402 


020334 


BEQ 
ERRHRD 17,0DER,SKDAEM 
TRAP 
~ WORD 
. WORD 
.WORD 
ENDIF 
502008: 
sSHIFT THE LIVE TRACK AND REPEAT. 
BIS oBIT9,OTKION sPREPARE FOR DATA SHIFT. 
ASR OTKION sSHIFT IT. DONE? 
Bcs 2s ;BR IF NOT, CONTINUE. 
;CHANGE DATA AND REPEAT 
TSTB RB DONE ? 
BEQ 4$ ;8R IF SO. 
CLR R3 sBYTE 1 DATA. 
MOV ©777,R4 sBYTE 2 DATA, 
BR 1$ 3; CONTINUE. 
43%: EXIT SUB 
TRAP 
.-WORD 
ENDSUB 
L10065: 
TRAP 
LET R1 :=* ORORDY OR ORTRAC OR ORDATA a 
Vv 
BIS 
BIS 
LET R1 := R1 OR ORTROD 
BIS 
IF RL NE 00 THEN 
Ts? 
BEQ 
ERRHRD 17,0D0ER 
TRAP 
.~ WORD 
«WORD 
.WORD 
CALL MSORT2 
JSR 
ENDIF 
SOCOLS: 
.EVEN 
ENDTST 
10063; 
TRAP 


SEQ 0133 
50200$ 
CSERHRD 
17 
DDER 
SK DAEM 


CSExIT 
L10065-. 


CsESuUB 


ORORDY ,R 
ORTRAC,R 
ORDATA,R 


ORTROD,.R 


Ri 
502018 


CSERHRD 
17? 

ODER 

°° 


PC .MSOR’ 
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033770 
033774 
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001404 


005337 
100343 


105737 
001404 


016032 
015260 
001777 
016240 
000003 


017006 
016006 


002436 
017106 
017614 


002436 
002437 
002212 


002420 


002437: 
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002420 
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TEST 8: LOOKUP TABLE TEST 


.SBTTL 
sTHIS TEST VEFIFIES THAT THE CONTENTS OF 


TEST 8: LOOKUP TABLE TEST 


;THE ROM CONTENTS IN ADDRESS 0-1777 ARE CHECKED. 


1$: 


DATA & REGISTER USAGE: 
ROMLKI = ROM LOOKUP TABLE ADDRESS. 


ERRFLG = ERROR FLAG. 
RS = DIABLK INDEX, 


BGNTST 


;OPEN A ROM LOOKUP TABLE LOCATION. 


JSR PC, SCHEXE sEXECUTE AN SCH COMMAND. 
CALL WAITMT 


MOV @1777,ROMLKI sINIT THE ROM TABLE ADDRESS 
JSR PC ,PEINIT sSETUP TASK ADR + READ CNTRL. 


JSR 


SEQ 0134 


THE ROM LOOKUP TABLE ARE CORRECT. 


PC,WAITM 


MOVB OFC.VCO!IFC.NRZ,-C(RS) ;SET VCO + NRZ1 MODE IN FORMAT CNTRL. 


JSR PC ,ROMLOK sLOAD THE OIABLK. 


JSR PC ,OIAEXE sEXECUTE IT. 
sCHECK FOR VALID DATA IN THAT LOCATION. 
CLR ERRFLG sINIT ERROR FLAG 
JSR PC ,ROMEX sGET EXPECTED DATA 


JSR PC, ROMCK 3;GET ACTUAL DATA AND COMPARE WITH 
sEXPECTED. 
IFB ERRFLG NE @O THEN 
TSTB 
BEG 
INCB CTLFLG 
IFB CMPFLG NE @O0 THEN 
TSTB 
BEG 
ERRHRD 18,ROMER,ROMEM 
TRAP 
. WORD 
. WORD 
. WORD 
ENDIF 
502038: 
ENDIF 
50202$: 
sUPDATE THE ADDRESS AND REPEAT THE TEST UNTIL DONE. 
DEC ROMLKI sDECR ROM ADDRESS - DONE? 
BPL 1$ 3;6R IF NOT, 
IFB CTLFLG NE @O THEN 
TSTB 


BEQ 


ERRFLG 
5020e2$ 


CMPFLG 
50203$ 


CSERHRD 


CTLFLG 
50204 $ 


HARDWARE TESTS MACY1L1 30( 1046) 


CZTSIC.P11 


09-APR-84 14:37 


104432 
000002 


104401 
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ERRHRD 18,ROMER,ROMLER 
ENDIF 


EXIT TsT 


ENDTST 
L10066: 


50204$: 


TRAP 
. WORD 


TRAP 


SEQ 0135 


CsExItT 
L10066-. 


Csersr 
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004737 
004737 
012727 
000000 
013727 
000000 
005367 
001375 
005367 
001367 


004737 


104401 


14:37 


016032 
015260 
300310 
002116 
177772 
177756 


021022 
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LOOKUP TABLE TEST 


T9:: 


1006”: 


- SBTTL 
BGNTST 


CALL 
CALL 
DELAY 


CALL 


ENDTST 


TEST 9: IN-LINE MICRO DIAGNOSTIC TEST 


SCHE. XE 
WALTMT 
200. 


MSORTS 


TRAP 


SEQ 0154 


PC, SCHEx 
PC. WALTM 
#200. ,(P 
19) 
L$SOLY,¢P 
c) 

-6( PC) 


.-4 
-2e( PC) 
--20 


PC .MSOR’ 


Csersr 


Hil 
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CZTSIC.P11 09 APR-84 14:37 TEST 9: IN-LINE MICRO DIAGNOSTIC TEST SEG 0137 
et -SBTTL TEST 10: INIT MICRO DIAGNOSTIC TEST 
5680 034172 BGNTST 
5681 034172 T10:: 
5682 
5683 034172 005077 146026 CLR aTssR 
5684 034176 CALL WAITSR 
5685 034176 004737 014702 JSR PC,WAITS 
5686 034202 CALL SCHE XE 
5687 034202 004737 016032 JSR PC, SCHE*Z 
5688 034206 CALL MSORTS3 
5689 034206 004737 021022 JSR PC .MSORT 
5690 
5691 -EVEN 
5692 034212 ENOTST 
5693 034212 L10070: 
on 034212 104401 i TRAP Csersr 
5696 034214 ENDMOD 


Til 
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CZTSIc.P 11 09 -APR 84 14:37 TEST 10: INIT MICRO DIAGNOSTIC TEST SEG 0138 
se . TITLE PARAMETER CODING 
99 
Biee .SBTTL HARDWARE PARAMETER CODING SECTION 
S701 
S702 034214 . BGNMOD 
5703 
S704 gee 
5705 3; THE HARDWARE PARAMETER CODING SECTION CONTAINS MACROS 
5706 ; THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
$707 3; MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
5708 3; INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
5709 ; MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
S710 ; WITH THE OPERATOR, 
S711 $-- 
S7le 
S718 034214 BGNHRD 
5714 034214 000024 »-WORD L10071-L$ 
the 034216 LSHARD:: 
716 
S717 034216 GPRMA TS4ADR 0,0, 160002,177564, 1ES 
5718 034216 000031 . WORD TSCODE 
5719 034220 034242 WORD TS4ADR 
57, 034222 160002 WORD TSLOLIM 
5721 034224 177564 . WORD TSHILIM 
5722 034226 GPRMD TS4vVCT.2.0,777,60, 776, ¥ES 
5723 034226 001032 . WORD TSCODE 
5724 034230 034257 . WORD TS4vCT 
5725 034232 000777 . WORD 77? 
S720 034234 000060 . WORD TSLOLIM 
Bree 034236 000776 . WORD TSHILIM 
5729 034240 EXIT HRD 
te 034240 013004 . WORD TSCODE 
5782 -NLIST BEX 
034242 051524 051123 040440 TS4ADR: .ASCIZ /TSSR ADDRESS’ 
034257 126 041505 047524 TS4vVCT: .ASCIZ /VECTOR/ 
LIST BE x 
5733 EVEN 
5734 
5735 034266 ENDHRD 
5736 - -EVEN 


S737 034266 L10071; 


J1L1 
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5738 .SBTTL SOFTWARE PARAMETER CODING SECTION 
739 
5740 geo 
5741 ;IT CONTAINS MACRO THAT ARE USED BY THE SUPERVISOR 
5742 TO BUILD SOFT P-YABLES. THE MACROS ARE INTERPRETED 
5743 ;BY THE SUPERVISOR AS DATA STRUCTURES. THE MACROS 
5704 sALLOW THE SUPERVISOR TO COMMUNICATE WITH THE OPERATOR. 
4 = 
5746 
5747 034266 BGNSF T 
5748 034266 000034 .WORD L10072-L$5S 
5749 034270 LSSOFT:: 
5750 
5751 034270 GPRML €NBMSG,0,1, YES 
5752 034270 000130 .WORD TSCODE 
5753 034272 034300 .WORD ENBMSG 
hes 034274 000001 -wORD 1 
5756 034276 EXIT SFT 
3737 034276 031004 .WORD TSCODE 
5759 .NLIST BEX 
034300 047105 041101 042514 ENBMSG: -ASCIZ ecENASLE DATA COMPARE ERROR PRINTS FOR TESTS 4-7/ 
wL x 
5760 
5761 034360 .EVEN 
5762 
5763 034360 ENDSFT 
5764 .EVEN 
5765 034360 L10072: 
5766 
5767 FPSSSSHSHAHAASHSEHHEAAEESEASEHESEEASESHEEAHEHESEAESESEEASEHSEAEEEEESEASCHASEEEAEEE 
5768 FSSSSAHAHASAASHEAAEHAEHEHESESASEHEASLESHEESEHAEHEEESESHESEESEEARESHEASEERESLAKEEEE 
5769 3 PATCH AREA 
5770 
5771 034360 000140 PATCH:: .BLKW 96. 
5772 FPSSSHAEHAHASAHHESAAEAAAOSESEEHEEHEEAHEASEEEAEHEAEEEESEHHAEEHESHEEASEEESEEEOEEEEEE 
5773 FASSSSEASASSHASAHASSEAESEHEESSEHEHEHESEHHEEESEEEEEHEEEEEEEHESEESHASESAEEAEASEESESEEED 
5774 034660 LASTAD 
5775 .EVEN 
5776 034660 034674 .WORD TSFREE 
5777 034662 000004 “WORD TS$SIZE 
5778 034664 LSLAST:: 
5779 
5780 034664 ENDMOD 
5781 
5782 . .SBTTL HARD CODED P-TABLE 
5783 
5784 see 
53785 ;DIAG IS PRE-PARAMETERIZED PER TBL 
5786 a 
5787 
5788 034664 BGNSETUP 1 
5789 034664 BGNP TAB 
5790 034664 000000 WORD 0 


5791 034666 000002 «WORD L10075-. 
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034670 
034670 
034672 
034674 
034674 
034674 


172522 
000224 


000001 


MACY11 30(1046) 09-APR-84 
09-APR-84 14:37 


ae 


HARD CODED P-TABLE 


L10073: 


K11 
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SEQ 0140 


Lil 
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CZTSIC.P1L 09-APR-84 14:3 SYMBOL TABLE SEQ 0141 
ACDATA 002362 G BPE = 020000 G COD16B 025137 CSESEG= 000005 DIAPKT 002250 G 
ACK.C = 100000 G CH.EAI= 000040 G cod16C 025221 CSESUB= 000003 DROPU 014654 G 
ACORDY 002354 G CH.ERI= 000020 G CoD17 025301 CSETST= 00C001 OTKION 002416 G 
ACROML 002370 G CH.ESS= 000200 G COD17A 025405 CSEXIT= 000032 DTRCHK 020452 
ACTRAC 002360 G CH9.DA= 000010 G COD17B 025464 C$GETB= 000026 EEM1A 006206 
ACTROD 002364 G CH9.OR= 000001 G CodD20. 38025544 CSGETW= 000027 EEM2A 006362 
ACTRK1L 002406 G CH9.TA= 000004 G COD20A 025652 C$GMAN= 000043 EEM3A 006534 
ACTRK2 002410 G CH9.TD= 000020 G cod2i 025752 CSGPHR= 000042 EEM4A 006706 
ACTRK3 002412 G CH9.0D= 000040 G COD21A 026060 CSGPLO= 000030 EF .CON= 000036 G 
ACTRK4 002414 G CH9.1D= 000002 G Cod22 026106 C$GPRI= 000040 EF .NEW= 000035 G 
ACTTBL 002354 G CMDPKT 002230 G cod23 §=026143 CSINIT= 000011 EF .PWR= 000034 G 
ACODTR 002366 G CMD.CO= 000001 G Cod24 026200 CSINLP= 000020 EF .RES= 000037 G 
ACiOTR 002356 G CMD.C1= 000002 G COD24A 026306 CSMANI= 000050 EF .STA= 000040 G 
= 000020 G CMD.C2= 000004 G COd25 026344 C$MEM = 000031 ENBMSG 034300 
ASSEMB= 000010 CMD.C3= 000010 G COD25A 026452 C$MSG = 000023 ENDTBL= 177777 G 
AUTODM 030064 CMD.C4= 000020 G COD25B8 026526 CSOPEN= 000034 ERRFLG 002436 G 
AO = 000001 G CMPFLG 002212 G COD26 026623 CSPNTB= 000014 EVL = 000004 G 
Al = 000002 G CODTBL 021314 COD26A 026706 CSPNTF= 000017 EVNPAR 015644 
A2 = 000004 G CODXXX 027336 COD26B8 026762 CSPNTS= 000016 EXDATA 002344 G 
A3 = 000010 G COoD0O0 §=—«*02:1474 code7 027057 CSPNTX= 000015 EXORDY 002336 G 
A4 = 000020 G CODOOA 021602 COD27A 027165 CsQIO = 000377 EXPTBL 002336 G 
AS = 000040 G CODOOB 021667 Cod27B8 027241 C$RODBU= 000007 EXROML 002352 G 
A6 = 000100 G Cobol 021751 COD337 027374 CSREFG= 000047 EXTRAC 002342 G 
A? = 000200 G CODO1A 022050 COUNTE= 050024 C$RESE= 000033 EXTRDD 002346 G 
A8& = 000400 G CcodD02 §8 022072 CPSADH= 000004 G C$REVI= 000003 EXODTR 002350 G 
Ag = 001000 G CoD03) §=022165 CPSADL= 000002 G CS$RFLA= 000021 EX1DTR 002340 G 
BITO = 000001 G CODO3A 022273 CPSCMD= 000000 G CsRPT = 000025 ESEND = 002100 
BITOO = 000001 G COD04 022351 CPSCNT= G CSSEFG= 000046 E$LOAD= 000035 
BITO1 = 000002 G CODO4A 022457 CRMSG 005765 G C$SPRI= 000041 FCMASK= 177717 G 
BITO2 = 000004 G COD0S) 022506 CTLFLG 002437 G C$SVEC= 000037 FC.DAT= 000010 G 
BITO3 = 000010 G COD06 = 022605 CvC.C = 040000 G C$TPRI= 000013 FC.FLO= 000100 G 
BITO4 = 000020 G CoD07 022702 CsAU_ = 000052 C18$DA= 000010 G FC.NRZ= 000001 G 
BITOS = 000040 G COD10 022773 CSAUTO= 000061 C18sOR= G FC.PRE= 000004 G 
BITO6 = 000100 G COD10A 023101 CsBRK = 000022 Ci8$TA= 000007 G FC.RD = 000200 G 
BITO7 = 000200 G COD10B 023203 C$BSEG= 000004 C18$TO= 000011 G FC.vCO= 000002 G 
BITO8 = 000400 G COD11 023234 C$BSUB= 000002 C18$0D0= 000012 G FIXDIA 015756 G 
BITO9 = 001000 G COD11A 023317 CSCEFG= 000045 C18$1D= 000005 G FMCTLO= G 
BIT1 = 000002 G C00118 023403 CSCLCK= 000062 DAEM 007472 FMTCH4 005330 G 
BIT10 = 002000 G CodD1i2 023503 CSCLEA= 000012 DAEMA 007545 FMTCHS 005253 G 
BIT11 = 004000 G COD12A 023606 CsCLOS= 000035 DAEMB 007614 FMTCH6 005176 G 
BIT12 = 010000 S C0013 023666 CSCLP1= 000006 DAEMC 007703 FMTCTR 005064 G 
BIT13 = 020000 G COD13A 023765 C$CVEC= 000036 DAEMD 007765 FMTSEL 020556 
BIT14 = 040000 G COD13B 024037 CSDCLN= 000044 DASKODD 003340 G FMT.CO= 000040 G 
BIT15 = 100000 G CoD1i4 024117 Cs000U= 000051 DATBLD 016212 G FMT.C1= 000100 G 
BIT2 = 000004 G COD14A 024221 CSDRPT= 000024 DATER 003245 G FSAU = 000015 
BITS = 000010 G C00148 024301 CsOU = 000053 DDER 003312 G FSAUTO= 000020 
BIT4 = 000020 G COD14C 024354 CSEDIT= 000003 DESCM 002442 G FSBGN = 000040 
BITS = 000040 G C0015 024434 CSERDF= 000055 DFPTBL 002204 G FSCLEA= 000007 
BIT6 = 000100 G COD15SA 024535 CSERHR= 000056 DIA = 1 G FsDU = 000016 
BIT7 = 000200 G COD1SB 024621 CSERRO= 000060 DIABLK 002316 G FSEND = 000041 
BIT8 = 000400 G CoD1SC 024675 CSERSF= 000054 DIAEXE 016006 G FSHARD= 000004 
BIT9 = 001000 G C0016 024755 CSERSO= 000057 DIAEXI= 000020 G FSHW = OO00L3 
BOE = 000400 G COD16A 025057 CSESCA= 000010 DIAGMC= 000000 FSINIT= O00006 
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FSJMP = 
FSMOD = 
FSMSG = 
F SPROT= 
FSPWR = 
FSRPT = 


000041 


09 - APR -84 


AHHHHHHHHHGA OHHOoH 


IsOU = 
ISHRD = 
ISINIT= 
ISMOD = 
ISMSG = 
I$PROT= 
ISPTAB= 


LSINIT 


027434 


°o 
AHHHAHHHHHHAHGHAHHHAHHHHHHAHAHHHAHHHHAH A oO 


MACY11 30(1046) 09- 
14:37 SYMB 


M11 


14:40 PAGE 145 
LE 


030760 


AHOHOHHOHHHHHHHHHHOHHOH 


030744 
031452 
031024 
031324 
032360 
031616 
031772 
032130 
032312 
033022 
032476 


000001 


AQHAHOAOHHHHHHHHHH ANHHHHHHnH 


PEINIT 


016240 


ann 


SEQ 0142 
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PELOAD 016420 G 
PNT = 001000 G 
POPJHI= 000000 G 
POPJLO= 000033 G 
PRCHST= 000014 G 
PRI = 002000 G 
PRIOO = 000000 G 
PRIOL = 000040 G 
PRIO2 = 000100 G 
PRIO3 = 000140 G 
PRIO4 = 000200 G 
PRIOS = 000240 G 
PRIO6 = 000300 G 
PRIO7 = 000340 G 
RDCHPS 005523 G 
ROCHL 005454 G 
005405 G 

RDCSEL 020700 
RDCTLO= 000020 G 
RD.MAI= 000100 G 
RD.REV= 000200 G 
RD.SKP= 000020 G 
RD.SPC= 000040 G 
RD.O7 = 000000 G 
RD.110= 000007 G 
-12 = 000001 G 
RD.20 = 000002 G 
RD.40 = 000003 G 
- RD.68 = 000004 G 
RD.7S5 = 000005 G 
RD.90 = 000006 G 
RFC 002264 G 
ROMCK 017614 G 
ROMEM 010056 G 

ROMEMA 010122 
ROMER 003375 G 
ROME x 017106 G 
ROMLER 014226 G 
ROMLKI 002420 G 
ROMLOK 017006 G 
ROMSLK= 000013 G 
SCH = 140004 G 
SCHBLK 002276 G 


SCHERL 014162 


MACY11 30(1046) 09-APR-84 


09-APR-84 14:37 SYMBOL TABLE 


TERM12 
TERM13 


OHHHOHHHHOHHHHHHHHHHHAH 


o 


AHHMHHHHH 


ONOKOHHHHHHH 


Nil 
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TS$SEKO= 
T$SIZE= 


000004 


AAHAHHAo 


OHOHHHA AHHHAHHHAAHHHH 


T$SUBN= 
T$TAGL = 
T$TAGN= 
TSTEMP= 
TSTEST= 
TSTSTM= 


T$TSTS=* OOO0001 


TS$$AU = 
T$$AUT= 
TSsCLE= 
T$$DAT= 
T$sDU «= 
TS$$HAR= 
T$$Hw = 
T$$INI« 
T$$MSG- 


T$sPC = 00000 


T$$PRO= 
TSSPTA= 
T$$SEG= 
T$$SOF = 
T$$SRvV= 
T$$SUB= 
T$$Sw = 
aaa 


033210 


an 


ann 


$F $NAM= 


000160 


o 


OHO 


OOOHOAHOHHOHHHAH 


AAA 


SEQ 0143 


Ble 
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C2TSIc.Pil 09 -APR-84 14;37 SYMBOL TABLE SEQ 0144 
$F $NO = 000403 SLOCTA= 177777 $TAGNU* 050205 $$ERFL* 000000 verenee 050000 
SF SOR = 000320 SLSTCN= 177777 $TEMP = 050204 $$FLAG* 000001 = 034674 
$F SRTN= 000300 $LSTIN*® 000001 $TSKO = 050204 $$FROM= 000000 :CORD * 000004 G 
$F $SEL= 000140 $SLSTST* 177777 $TSK1 * 050203 $$LOC = 034104 .INCOR* 000002 G 
SF STHE= 000330 $LSTTA* 000001 $TSK2 © 177777 $$LOCN= 000000 -MULT = 000200 G 
SFSTRU= 000404 SMCALL* 000000 $TSK3 © 177777 $$REG = 177777 -PREAM= 000040 G 
SFSUNT= 000130 SNESTL® 177777 $TSK4 = 050137 $$RETU* 000000 -ROF MK = 000100 G 
$F $WHI= 000120 $NSKO = 000110 $TSKS = 050145 $$RTN1= 000000 -OOF9 = 000010 G 
SFSYES= 000402 $SNSK1 * 000110 $TSK6 = 050147 $$RTN2= 000000 -80F9 = 000001 G 
SIFLEv= 177777 $NSK2 = 000110 $$ARGC* 000000 $sSRC = 000027 -90F9 = 000020 G 
$ISKO = 000001 $NSK3 = 000130 '$BYTE* 000402 $sTGSv* 050137 

$ISK1 = 000001 SSAVLE* 177777 $$CASE= 000404 $$TGSl* 000001 

$ISK2 = 000001 $SSKO = 050175 $sDST = 000003 $$TGS2= 000000 

$SISK3 = 000001 STAGLE* 177777 $sELOC* 000402 $sT0 = 000000 

» ABS. 034674 000 


ERRORS DETECTED: 0 


Mg FE CZTSIC/SOL “EQ: ONEF ILE =SVC.SML,SPMAC.SML ,CZTSIC.P11 
RUN-TIME: 74 73 .8 SECONDS 
RUN- TIME RATIO: 224/1481.5 
CORE USED: 31K (62 PAGES) 


